如何设置组合框或列表框的行来源为函数
以下代码是将线源设置为此函数的例程:
公共功能值列表(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
0条评论