把　if isnull(Rst.Fields("z(" & h & ")")) then　　改成
if isnull(Rst.Fields("z(" & h & ")")) or isnull(Rst.Fields("j(" & h & ")")) then　　　

我把源代码上传上来，代我修改下吧！

再看看我那个MDB数据库的字段属性定义有没有什么错误？

好么？

你J*和H*为什么要定义成Txet型？你用来计算直接用数据类型不就好了？

上面那个MDB不是的！重新上传，这个！

我倒……

什么？

J（）字段的属性么？为数字型啊！

哦！忘了告诉你了！

这MDB也不是的！我后来把MDB的J（）字段属性都改成了数字型了！

没有带到单位来，在家里，这是前天MDB的！

再次重新上传，

我把这MDB的J（）字段给改过来了！设置为数字型，并且其默认值是否设置为0呢？否则，当第某记录上的J（）为空的话，系统默认其为数字0，这样一来，计算不会受阻呢？

Private Sub Command2_Click()
Dim a
Dim i, h As Single
If IsNull(Rst.Fields("z(" & h & ")")) Or IsNull(Rst.Fields("j(" & h & ")")) Then
For i = 1 To Rst.RecordCount
For h = 1 To 9

If Rst.Fields("z(h)").Value = "银行存款" 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

如果换个思维，DB1。MDB里的FL1表中有如下Z1。。。Z9，J1。。。J9共18个字段，

文本 数字
Z1。。。J1
Z2。。。J2
Z3。。。J3
Z4。。。J4
。。。
。。。
。。。
Z9。。。J9

如果Z5的值为“银行存款”的话，那么把对应的J5的值累计相加起来放入TEXT3。TEXT里面！

如果用判断字段的第二位的值相同来做的话，

应该怎么写呢？

If Rst.Fields("*").Value = "银行存款" and right(Rst.Fields("*"))then
if right

还是不行！

Rst...后面的各种属性以及次子属性的含义还是不太明白！

这是我完整的源代码附件！

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(" & h & ")").Value = "银行存款" Then
a = a + Val(Rst.Fields("j(" & h & ")").Value)
End If
Next h
Rst.MoveNext
Next i

Text4.Text = Val(a)

End If

End Sub

执行时出现： 无效使用NULL！

黄条指示在：a = a + Val(Rst.Fields("j(" & h & ")").Value)