摘要:
Private Sub Form_Load() For Each temp In Me.Controls If Not TypeOf temp Is Label Then temp.OnClick = "=GetVal()" Next If Me.产品编码.FormatConditions.Coun 阅读全文
摘要:
Private Sub Form_Load() Me.Move -3000, -2500, Me.Width, 15000 For Each temp In Me.Controls If TypeOf temp Is TextBox Then temp.OnChange = "=FilterTabl 阅读全文
摘要:
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If Me.SelHeight > 1 Then '判断用户是否多选 Dim i 阅读全文