ufB2Wugu.rar (21.86 KB) [求助]怎么执行时出现：无效使用NULL

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)

照这样改，代码如下：

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

End If
End If
Next h
Rst.MoveNext
Next i

Text4.Text = Val(a)

End If

End Sub

执行时没有出现NULL了，但结果为：0

新问题好象来了！