如何为列表框、组合框自定义行来源类型

sun.gd

以下是ACCESS帮助的示例，请问如何用记录集来填充？特别在多列的情况下



以下示例将使用静态数组来存储当前目录中所有数据库的名称。如果要调用该用户自定义函数，可以将 RowSourceType 属性设为 ListMDBs ，并且不设置 RowSource 属性。

1. [b]Function[/b] ListMDBs[b]([/b]fld [b]As Control[/b], id [b]As Variant[/b], _
   
   
2.      row [b]As Variant[/b], col [b]As Variant[/b], _
   
   
3.      code [b]As Variant) As Variant[/b]
   
   
4.     Static dbs(127) As String, Entries As Integer
   
   
5.     Dim ReturnVal As Variant
   
   
6.     ReturnVal = Null
   
   
7.     Select Case code
   
   
8.         Case acLBInitialize                ' 初始化。
   
   
9.             Entries = 0
   
   
10.             dbs(Entries ) = Dir("*.MDB")
    
    
11.             Do Until dbs(Entries) = "" Or Entries >= 127
    
    
12.                 Entries = Entries+1
    
    
13.                 dbs(Entries) = Dir
    
    
14.             Loop
    
    
15.             ReturnVal = Entries
    
    
16.         Case acLBOpen                        ' 打开。
    
    
17.             ' 为控件生成唯一 ID。
    
    
18.             ReturnVal = Timer
    
    
19.         Case acLBGetRowCount            ' 获取行号。
    
    
20.             ReturnVal = Entries
    
    
21.         Case acLBGetColumnCount    ' 获取列号。
    
    
22.             ReturnVal = 1
    
    
23.         Case acLBGetColumnWidth    ' 列宽。
    
    
24.             ' -1 强制使用默认宽度。
    
    
25.             ReturnVal = -1
    
    
26.         Case acLBGetValue                    ' 获取数据。
    
    
27.             ReturnVal = dbs(row)
    
    
28.         Case acLBEnd                        ' 结束。
    
    
29.             Erase dbs
    
    
30.     End Select
    
    
31.     ListMDBs = ReturnVal
    
    
32. End Function

复制代码

1. [/code] [code]

复制代码

1. <SCRIPT language=VBScript src="ShowMe_Code.vbs">
   </SCRIPT>
   
   
2. 
   
   
3. <SCRIPT language=VBSCRIPT>
   
   
4. Sub HelpPopup (sFile, sID)
   
   
5. Call InitConstants()
   
   
6. On Error Resume Next
   
   
7. r=oua.HelpPopup(sFile,sID)
   
   
8. If Err<>0 Then Msgbox L_SECURITY_MSG,48,L_TITLE
   
   
9. End Sub
   
   
10. 
    </script>

复制代码

ls_hndd

oo

ls_hndd

oo

qhclub

asdfddd

qhclub

asdddd

62267021

看不懂

TNHTJ

budong