Office中国论坛/Access中国论坛
标题:
怎样用数组或变量替代源码中的字段名
[打印本页]
作者:
hgxly
时间:
2013-8-2 12:21
标题:
怎样用数组或变量替代源码中的字段名
我有这样一段源码:
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenStatic
rst.LockType = adLockOptimistic
rst.Open "Select * from 班组"
zqs = rst.RecordCount
aa = 0
rst.MoveLast
If rst!组12 = "否" Then
bb(1) = rst!组12连出空
rst.MoveLast
Else
Do Until rst!组12 = "否"
rst.MovePrevious
Loop
bb(1) = rst!组12连出空
rst.MoveLast
End If
......
rst.Close
Set rst = Nothing
End Sub
由于字段“组12、组13、..有十来个之多,为了程序的简洁想把’rst!组12‘中的“组12”等多个字段用数组a(n)替代,用循环语句来替代一个个的填写,但直接使用“rst!& a(n)= '否'"显然不行。请教应该怎样写才有效。
作者:
todaynew
时间:
2013-8-2 16:36
本帖最后由 todaynew 于 2013-8-2 17:41 编辑
dim i as long,j as long
for i=1 to rst.RecordCount
for j=1 to 12
msgbox rst.
Fields
("组" & j).value
next
next
Fields为集合对象,可以用0,1,2,....,或者名称字符串,来获取其中的元素。
处理方法可参见《
画龙点睛
》一文。
作者:
hgxly
时间:
2013-8-2 17:59
谢谢todaynew ,按你的方法解决了。
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3