摘要:
'反选 Private Sub CommandButton1_Click() Call Testss(Me!TIListBox) End Sub Private Function Testss(ByRef lb As Object) If lb.ListCount < 1 Then MsgBox " 阅读全文
摘要:
TIListBox.MultiSelect = 1 TIListBox.ListStyle = 1 TIListBox.ColumnWidths = 62 TIListBox.ColumnCount = 1 Dim arr, brr C_Control arr, brr '将记录集显示到列表框中 D 阅读全文