- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么代码不起作用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70048)
-- 发布时间：2015/6/15 10:25:00
-- 为什么代码不起作用
-- 发布时间：2015/6/15 10:43:00
--
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
Else
If e.DataRow("出库数量") <= 0 Then
e.DataRow("出库数量") = Nothing
ElseIf e.DataRow("出库数量") >= dg("库存数量") Then
\'MsgBox("出库量不能大于库存量!")
e.DataRow("出库数量") = dg("库存数量")
End If
End If
End If
Case "出库数量"
Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = \'" & e.DataRow("物料代码") & "\'","_Identify Desc")\'获得最后一行
If dg Is Nothing Then \'如果找到了同名的物料代码行,也就是dr不是Nothing
\'msgbox("在库存没找到物料")
\'e.Cancel = True
e.NewValue = Nothing
Else
If e.newvalue <= 0 Then
e.newValue = Nothing
ElseIf e.newvalue >= dg("库存数量") Then
\'MsgBox("出库量不能大于库存量!")
e.newvalue = dg("库存数量")
End If
End If
End Select
-- 发布时间：2015/6/15 10:54:00
--
谢谢！！！
-- 发布时间：2015/6/15 11:30:00
--
-- 发布时间：2015/6/15 11:49:00
--
新的出库数量与未记账的出库数量之和不能大于库存量，该如写代码
-- 发布时间：2015/6/15 11:51:00
--
Case "记账"
-- 发布时间：2015/6/15 15:09:00
--
此主题相关图片如下：qq图片20150615151003.png
-- 发布时间：2015/6/15 15:10:00
--
提示错误
-- 发布时间：2015/6/15 15:11:00
--
-- 发布时间：2015/6/15 15:13:00
--
Case "记账"
Dim Sun As Integer
Sun = DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = \'" & e.DataRow("物料代码") & "\'")
If e.DataRow("记账") = False Then
If sun >= e.DataRow("库存数量") Then
MsgBox("出库量不能大于库存量!")
e.Cancel = True
End If
End If
End Selec