Function CmdClickProcess() Dim F1 As Form Dim HW As Control Dim S As Control Set F1 = Screen.ActiveForm Set S = Screen.ActiveControl MsgBox S.Name F1.Controls("货位") = S.Name F1.RequeryEnd Function
