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