如何设置组合框或列表框的行来源为函数

以下代码是将线源设置为此函数的例程:

公共功能值列表(ctl作为控件，_

varID作为变量，_

随着时间增长，_

长时间冷却，_

intCode为整数)作为变量

Dim varRetVal作为变量

Dim strField作为字符串

Dim strField作为字符串

Dim strSQL作为字符串

Dim strList作为字符串

Dim intLoopRow为整数

Dim intLoopCol为整数

Dim cnn为ADODB。关系

昏暗的RST作为ADODB。记录集

作为变量的静态svarArray()

静态sintRows为整数

作为整数的静态sintCols

出错时转到Proc_err

选择案例intCode

案例aclb初始化

出错时继续下一步

intLoopRow = Ubound(svarArray)

如果错误为0，则

出错时转到Proc_err

填充客户记录集

设置cnn = New ADODB。关系

cnn。Provider = "Microsoft。Jet.OLEDB.4.0 "

cnn。Properties("数据源")= CurrentProject。路径& " \数据共享\data.dat "

cnn。属性(" Jet OLEDB:数据库密码")= "123456789222 "

cnn。打开

与cnn

。Provider = "Microsoft。Jet.OLEDB.4.0 "

这将从唯一的

允许灵活性的本地表

。ConnectionString = current project。应该更改路径& "\data.dat " "

。属性(" Jet OLEDB:数据库密码")= "123456789222 "

。打开

以…结尾

设置RST =新的ADODB。记录集

和RST一起

。ActiveConnection = cnn

。Source = "select usysuser.userid，usysuser.username from usysuser " '应该更改

。CursorLocation = adUseClient

。CursorType = adOpenDynamic

。LockType = adLockReadOnly

。打开，，，adCmdText

。将记录指针移至最后一条

sintRows =。记录计数

。MoveFirst

sintCols = .Fields.Count

以“rst”结尾

Set cnn = Nothing