Select Case e.DataCol.name
Case "物料代码"
If e.NewValue Is Nothing Then '如果新值是空白,也就是物料代码列的内容为空
msgbox("物料代码为空")
e.DataRow("出库数量") = Nothing '那么清空此行出库数量列的内容
Else
Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.NewValue & "'","_Identify Desc")'获得最后一行
If dg Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
msgbox("在库存没找到物料")
e.NewValue = Nothing
Else
If e.DataRow("出库数量") > dg("库存数量") Then
MsgBox("出库量不能大于库存量!")
e.DataRow("出库数量") = dg("库存数量")
Else
msgbox("出库没有大于库存")
End If
End If
If e.DataRow("出库数量") < 0 Then
e.DataRow("出库数量") = Nothing
End If
End If
End Select
代码改为上述后 Else
msgbox("出库没有大于库存")
End If 这段代码执行了，
Else
If e.DataRow("出库数量") > dg("库存数量") Then
MsgBox("出库量不能大于库存量!")
e.DataRow("出库数量") = dg("库存数量") 这段代码没用执行
加好友 
发短信
Post By：2015/6/12 16:41:00 [只看该作者]
