Office中国论坛/Access中国论坛

标题: 如何为列表框、组合框自定义行来源类型 [打印本页]

---

作者: sun.gd    时间: 2007-4-18 19:10
标题: 如何为列表框、组合框自定义行来源类型
以下是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    时间: 2007-4-25 05:33
oo

---

作者: ls_hndd    时间: 2007-4-25 05:33
oo

---

作者: qhclub    时间: 2007-4-25 05:50
asdfddd

---

作者: qhclub    时间: 2007-4-25 05:50
asdddd

---

作者: 62267021    时间: 2009-4-3 13:26
看不懂

---

作者: TNHTJ    时间: 2011-4-21 18:53
budong

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3