Office中国论坛/Access中国论坛

标题: 在程序中如何用数组来替代字段名 [打印本页]

作者: hgxly 时间: 2013-8-2 12:15
标题: 在程序中如何用数组来替代字段名
我有这样一段源码：
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 时间: 2013-8-2 12:23
在access中, 可使用 rs("组" & i) 这种方式 , i是循环数字

作者: hgxly 时间: 2013-8-2 12:27
谢谢，我试下。

作者: hgxly 时间: 2013-8-2 12:28
谢谢，我试下。

作者: hgxly 时间: 2013-8-2 12:48
本帖最后由 hgxly 于 2013-8-2 12:57 编辑

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)