Public Sub SetParentFormctrls(ByVal frm As Form) '功能:將子窗體控件數(shù)據(jù)賦值給主窗體對應(yīng)控件 Dim ctrls As Controls Dim Ctrl As Control On Error Resume Next Set ctrls = frm.Parent.Controls For Each Ctrl In frm.Controls If Ctrl.ControlType <> acLabel Then ctrls(Ctrl.Name).Value = Ctrl.Value End If Next End SubPublic Sub SetParentFormctrls(ByVal frm As Form) '功能:將子窗體控件數(shù)據(jù)賦值給主窗體對應(yīng)控件 Dim ctrls As Controls Dim Ctrl As Control On Error Resume Next Set ctrls = frm.Parent.Controls For Each Ctrl In frm.Controls If Ctrl.ControlType <> acLabel Then ctrls(Ctrl.Name).Value = Ctrl.Value End If Next End Sub