该代码段是针对SSOleDBGrid3控件的AfterUpdate事件处理程序，主要功能是验证第8列和第9列的数据是否为数字，以及数值是否符合逻辑约束（如投诉量不能大于批次量，拒收量不能大于批次量且不能大于投诉量）。如果发现不符合条件的数据，它将清空对应单元格并显示提示信息。
老掉牙的东东了还要捣鼓！！
Private Sub SSOleDBGrid3_AfterUpdate(RtnDispErrMsg As Integer)
'MsgBox str(SSOleDBGrid3.Row) & " - " & str(SSOleDBGrid3.Col), vbInformation, "Click"
If IsNumeric(SSOleDBGrid3.Columns(8).Text) = False Then
MsgBox " Need Numeric Value ..!! ", vbInformation, "Complaints Quantity!!"
SSOleDBGrid3.Columns(8).Text = ""
End If
If IsNumeric(SSOleDBGrid3.Columns(9).Text) = False Then
MsgBox " Need Numeric Value ..!! ", vbInformation, "Reject Quantity!!"
SSOleDBGrid3.Columns(9).Text = ""
End If
If Val(SSOleDBGrid3.Columns(8).Value) > Val(SSOleDBGrid3.Columns(7).Value) Then
MsgBox "Complaints Quantity do not allow big than Batch Quantity!!", vbInformation, "Complaints Quantity"
SSOleDBGrid3.Columns(8).Text = ""
End If
If Val(SSOleDBGrid3.Columns(9).Value) > Val(SSOleDBGrid3.Columns(7).Value) Then
MsgBox "Reject Quantity do not allow big than Batch Quantity!!", vbInformation, "Reject Quantity"
SSOleDBGrid3.Columns(9).Text = ""
End If
If Val(SSOleDBGrid3.Columns(9).Value) > Val(SSOleDBGrid3.Columns(8).Value) Then
MsgBox "Reject Quantity do not allow big than Complaints Quantity!!", vbInformation, "Reject Quantity"
SSOleDBGrid3.Columns(9).Text = ""
End If
End Sub
扫一扫
2539
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
