“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？？

我把每个J（I）的字段属性均设置为数字格式啊！默认属性为“0”啊！自动为0啊！

If Rst.Fields("z(" & h & ")").Value = "银行存款" Then

这条和J(I)有什么关系？如果你的Z(h)字段为NULL的话就会出错。

Z(i)字段下的记录为空的话么？

Z（1~9）字段的属性我都为默认设置为允许空字符串啊（没有更动）？

难到不允许设置为空么？

的确有空字段！

字段属性不改，继续允许空字符串的话，加条判断语句呢？

If Rst.Fields("z(" & h & ")").Value <> "" Then

NULL "" 不是一样子了．
是不是NUll 用　IsNull　判断

If Rst.Fields("z(" & h & ")").Value <> "" Then

If IsNull（Rst.Fields("z(" & h & ")").Value） Then　

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 isnull(Rst.Fields("z(" & h & ")")) then　　　
　　elseIf 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(" &amp; h &amp; ")").Value