Dim sum As String
sum = InputBox("発注数输入", "数量订正", , 100, 100)
DisplayData.SetFocus
If Err.Number <> 0 Then
MsgBox "数据错误"
End If
If sum = "" Then
rstAcc.Close
Exit Sub
End If
If IsNumeric(sum) <> True Then
sum = MsgBox("必须是数字输入", , "")
sum = InputBox("请输入数字：", "数量订正")
Else
End If
j = DisplayData.RowSel
rstAcc.MoveFirst
rstAcc.Move j - 1
If IsNumeric(sum) Then
On Error Resume Next
If sum > rstAcc!maxorder Then
If MsgBox("最大数是999", vbOKOnly, "") Then
End If
rstAcc.Close
Exit Sub
End If
If sum < rstAcc!minorder Then
MsgBox "最小数是"
rstAcc.Close
Exit Sub
End If
If sum Mod rstAcc!PurchUnits <> 0 Then
MsgBox "判断条件"
rstAcc.Close
Exit Sub
End If
If sum Mod rstAcc!stockUnits <> 0 Then
MsgBox "判断条件"
rstAcc.Close
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "数据错误"
rstAcc.Close
Exit Sub
End If
我是一个vb刚刚接触的新手 请问我这样做一个数据输入后的判断思想对吗？ 目前出现的问题是 不能判断最大值 999 就是我输入一个数据（必须是数字）后 能判断后面3个 第一个不能判断 优先权突然转移到是否是倍数关系 所以提出疑问 望高手指点一下 谢谢
參考答案:If MsgBox("最大数是999", vbOKOnly, "") Then 这句有错
