?? cpublic.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CPublic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'公共函數類
Public Function GetListIDs(ByVal ListTable As String, ByVal ListID As String) As String()
'此函數用來取得ListBox中要顯示的ID值
'ListTable為要查詢的表,ListID為要顯示的字段
Dim ListIDs() As String
ReDim Preserve ListIDs(1)
ListIDs(0) = "**BeginsListIDs**"
Connect "r"
sqlstr = "select " & ListID & " from " & ListTable & ""
rs.Open sqlstr
Do While Not rs.EOF
ReDim Preserve ListIDs(UBound(ListIDs) + 1)
ListIDs(UBound(ListIDs) - 1) = CStr(rs.Fields(ListID))
rs.MoveNext
Loop
Disconnect
GetListIDs = ListIDs
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -