Question

vb 实时错误94 无效使用null 请高手帮忙看看为什么 急~~

我做的是输入一个时间然后将数据库中这一时间的某一列中的数值相加算出最后的值，输入其他时间都可以，但就是当时间为2009是总是跳出无效使用null的错误。就算我将access中2009的记录删除了还是会跳出来，调试时指向 sum = sum + h这一句 想问下究竟是为什么，急~~~
Public Function count1()
Dim sum As Double
sum = 0
Do While Not Adodc1.Recordset.EOF
a = Adodc1.Recordset.Fields("上次中修时间")
b = Val(Format(a, "yyyy"))
c = Adodc1.Recordset.Fields("中修费用")
d = Int(c)
If Text1.Text = b Then
sum = sum + d
End If
Adodc1.Recordset.MoveNext
Loop
Text3.Text = sum

End Function
Public Function count2()
Dim sum As Double
sum = 0
Do While Not Adodc1.Recordset.EOF
e = Adodc1.Recordset.Fields("上次大修时间")
f = Val(Format(e, "yyyy"))
g = Adodc1.Recordset.Fields("大修费用")
h = Int(g)
If Text1.Text = f Then
sum = sum + h
Else
sum = sum + 0
End If
Adodc1.Recordset.MoveNext
Loop
Text4.Text = sum
End Function
Private Sub Command1_Click()
If Combo2.Text = Combo2.List(1) Then
If Text1.Text = "" Then
MsgBox "请输入年份"
Else
Call count1
Adodc1.Recordset.MoveFirst
Call count2
Adodc1.Recordset.MoveFirst
End If
End If

Answer 1

应该是数据类型不对，开始的sum是double数据类型，后来加的d是integer，所以会出错，不如都转换成integer好了，应该不会再出错了吧。

Answer 2

g = Adodc1.Recordset.Fields("大修费用")

h = IIf(IsNull(g), 0, Int(g)) '数据库里有NULL（空）字段，这样处理一下。

If Text1.Text = f Then
Sum = Sum + h
Else
Sum = Sum + 0
End If

Answer 3

应该是你的sql语句查询结果里有<null>的项目
修改一下，用isnull(列名,0)或isnull(列名,‘’)