'出库量大于库存量禁止出库,不能小于零
'-------------------------------------------------------------------------------------------
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.Cancel = True
e.NewValue = Nothing
If dg IsNot Nothing Then
If e.DataRow("出库数量") <= 0 Then
e.DataRow("出库数量") = Nothing
End If
If e.DataRow("出库数量") >= dg("库存数量") Then
'MsgBox("出库量不能大于库存量!")
e.DataRow("出库数量") = dg("库存数量")
End If
End If
End If
End If
End Select
代码写在“DataColChanging”事件中，但是不起作用
加好友 
发短信
Post By：2015/6/15 10:25:00 [只看该作者]
