我的DB1表里的FL1表含有“ZK”字段和数值字段为“J5”，FL1表共有50个记录。

我想统计这50个记录里面“ZK”字段的内容全部为“YH”时的数值字段“J5”的数值之和！

代码如下：
Dim i, j, b As Single
Dim a
If Not Rst.EOF() Then
For i = 1 To Rst.RecordCount
if Rst.Fields("ZK").Value="YH" then
a = a + Val(Rst.Fields("J5").Value)

Rst.MoveNext
Next i
Text1.Text = Val(a)
End If

如果不止统计这一个呢？如下：

“ZK”字段的内容全部为“KC”时的数值字段“J5”的数值之和！
“ZK”字段的内容全部为“YS”时的数值字段“J5”的数值之和！
“ZK”字段的内容全部为“GD”时的数值字段“J5”的数值之和！
。。。
。。。
呢？

我的DB1表里的FL1表含有“Z(1)~Z(9)”九个字段和对应数值字段为“J1~J9”也是九个总共18个字段，FL2表共有50个记录。

我想统计这50个记录里面“Z(1)~Z(9)”字段中某字段Z(h)的内容都为“YH”时的对应的数值字段“J(h)”的数值之和！

代码如下,照以前方法,

Private Sub Command2_Click()

Dim a
Dim i, h As Single

For i = 1 To Rst.RecordCount
For h = 1 To 9
If Not Rst.EOF() Then
If Rst.Fields("z(h)").Value = "YH" Then
a = a + Val(Rst.Fields("j(h)").Value)
Next h
Rst.MoveNext
Text3.Text = Val(a)
End If
Next i

conn.Close

End If
End Sub

这下叙述问题清楚了吧？

我这么写，怎么执行时，

NEXT没有FOR？

错在哪？

照SQL语句，怎么写呢？

Private Sub Command1_Click()
Dim i As Single
Dim a
If Not Rst.EOF() Then
For i = 1 To Rst.RecordCount
a = a + Val(Rst.Fields("j1").Value)
Rst.MoveNext
Next i
Text1.Text = Val(a)
End If
End Sub

第一个控件执行正常！

第二个模仿第一个控件的代码如下：
Private Sub Command2_Click()
Dim a
Dim i, h As Integer

If Not Rst.EOF() Then
For i = 1 To Rst.RecordCount
For h = 1 To 9
If Rst.Fields("z(i)").Value = "银行存款" Then
a = a + Val(Rst.Fields("j(i)").Value)
End If
Next h
Rst.MoveNext
Next i
Text4.Text = Val(a)
End If

End Sub

执行这个第二个控件时，出现：

在对应所需名称或序数的集合中，未找不到项目，

o1哦！
我好象明白了！

好象（z(i)）没有被程序确认为一个有效的或语法正确的数组！

所以执行时出现：在对应所需名称或序数的集合中，未找不到项目，