“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

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的结果啊？

再次重新上传，

我把这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

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

如果换个思维，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