在程序中如何用数组来替代字段名

hgxly

我有这样一段源码：   
    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)= '否'"显然不行。请教应该怎样写才有效。

admin

在access中, 可使用 rs("组" & i)  这种方式 , i是循环 数字

hgxly

谢谢，我试下。

hgxly

谢谢，我试下。

hgxly

谢谢，我试下。

hgxly

admin 发表于 2013-8-2 12:23
在access中, 可使用 rs("组" & i)  这种方式 , i是循环 数字

试了下，不行。显示“类型声明字符与声明的数据类型不符“错误信息。能否直接告诉我“If rst!组12 = ‘否’ Then ”中“rst!组12”具体用什么替代才行。谢谢。 补充：换言之：如果用“a=rst！组12”。 a 应该用什么数据类型。dim a as ？