?? public.bas
字號:
Attribute VB_Name = "Public"
'QQ:75347626
'MSN:whailin2000@hotmail.com
Option Explicit
Public Sub FillComboWithSql(mForm As Form, Combo As ComboBox, SqlString As String, Optional vFieldCode As String = "")
Dim Frs As ADODB.Recordset
Dim OldValue As String
Combo.Clear
Set Frs = Conn.Execute(SqlString)
If Frs.EOF Then
Exit Sub
End If
Frs.MoveFirst
Do Until Frs.EOF
Combo.AddItem Frs(0)
If vFieldCode <> "" Then
Combo.ItemData(Combo.ListCount - 1) = Frs(vFieldCode)
End If
Frs.MoveNext
Loop
Set Frs = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -