＃敢问高手有何解释？＃

eio

以下是引用lhwa在2003-2-13 22:31:35的发言：
文件下载

此例子好像什么也没有变－－无效－－enabled=false

步步高

在大于号，小于号左右的表达式上加val，好像就没问题了吗！
如If Val(B + H) <> Val(G) Then
MsgBox "B+H<>G", vbCritical, "数据有误"
Else
If Val(H + F) <> Val(B) Then
MsgBox "H+F<>B", vbCritical, "数据有误"
Else
If Val(2 * D + 2 * E + C) <> Val(A) Then
MsgBox vbCritical, "数据有误"
End If
End If
End If

eio

以下是完满解决的方法，终于可以休息啦，所以msgbox"access－CN还是要来啊！"

Private Sub 检验数据_Click()
If Val(Nz(B) + Nz(H)) <> Val(Nz(G)) Then
MsgBox "B+H<>G", vbCritical, "数据有误"
Else
If Val(Nz(H) + Nz(F)) <> Val(Nz(B)) Then
MsgBox "H+F<>B", vbCritical, "数据有误"
Else
If Val(2 * Nz(D) + 2 * Nz(E) + Nz(C)) <> Val(Nz(A)) Then
MsgBox vbCritical, "数据有误"
End If
End If
End If
End Sub[em27][em27]

步步高

原来如此。。。

eio

zhengjialon，李寻欢，marco2，lhwa，步步高……等同志，（排名不分先后），我想我要好好休息啦，否则明天将是另一个原因被革职：迟到啊！[em05]