摘要:
Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const LB_SETHORIZONTALEXTEN... 阅读全文
摘要:
1.获取所有用户名:SELECT name FROM Sysusers where status='2' and islogin='1'islogin='1'表示帐户islogin='0'表示角色status='2'表示用户帐户status='0'表示糸统帐户2.获取所有数据库名:SELECT Na... 阅读全文
摘要:
1 Private Sub GridToExl_Click() 2 On Error Resume Next 3 If DataGrid1.Columns.Count = 0 Then 4 5 MsgBox "抱歉,没有数据可供打印!", vbOKOnly, "提示" 6 Exit Sub 7 En 阅读全文