数值比较问题,达人乱入(在线等待)

用单部调试发现ElseIf w <> dbrs![Weight] Then 中w和dbrs![weight]的值一样,可是程序会跳到MsgBox "码单总重量不符!"
    audit = FalseDim r As Integer
Dim i As Integer
Dim w As Single
Dim a As Integer
r = DataGrid2.VisibleRows - 1
w = 0
a = 0
On Error Resume Next
For i = 0 To r
DataGrid2.Col = 8
DataGrid2.Row = i
w = w + DataGrid2.Text
Next iFor i = 0 To r
DataGrid2.Col = 7
DataGrid2.Row = i
a = a + DataGrid2.Text
Next iIf a <> dbrs![amount] Then
    MsgBox "码单总数量不符!"
    audit = FalseElseIf w <> dbrs![Weight] Then
    MsgBox "码单总重量不符!"
    audit = FalseElseIf a = dbrs![amount] And w = dbrs![Weight] Then
    MsgBox "审核成功,可已保存码单"
    audit = True
Else
    MsgBox "审核错误"
    audit = False
End If