Question

vb 单击按钮 把按钮名称显示在文本框里

msgbox 弹出没问题 ，但是不能显示到 货位 的文本框里 ，帮我看下还差什么Function CmdClickProcess()Dim F1 As FormDim 货位 As ControlDim s As ControlSet s = Screen.ActiveControlMsgBox s.NameF1.货位 = s.NameF1.RequeryEnd Function





Answer 1

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.Requery
End Function