Dim strParentDocName As String
On Error Resume Next
strParentDocName = Me.Parent.Name (这个是什么意思???有什么作用?为什么正个过程没引用过“strParentDocName”)
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![客户订单子窗体2].Requery (这个呢?)
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Err.Description
Resume Form_Current_Exit
End Sub