- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教：这段代码不起作用，哪里有问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48795)
-- 发布时间：2014/4/5 10:21:00
-- 请教：这段代码不起作用，哪里有问题
\'出库量大于库存量禁止出库
If e.DataCol.Name = "物料代码" Then \'如果内容发生变动的是品名列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("出库数量") = Nothing \'那么清空此行单价列的内容
End If
End If
Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = \'" & e.NewValue & "\'","_Identify Desc")\'获得最后一行
If dg IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
\'e.DataRow("出库数量") = dg("库存数量")
If e.DataRow("出库数量") > dg("库存数量") Then
e.Cancel = True
MessageBox.Show("出库量大于库存量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
-- 发布时间：2014/4/5 10:59:00
--
想起什么作用呢？怎么没起作用？
上传例子吧。
-- 发布时间：2014/4/5 11:16:00
--
出库表直接输入大于库存的数量不提示，可以输入数据
-- 发布时间：2014/4/5 11:22:00
--
没例子，测试不了。
-- 发布时间：2014/4/5 11:23:00
--
传不上去
-- 发布时间：2014/4/5 11:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:hjkscbhs.rar |
-- 发布时间：2014/4/5 11:49:00
--
Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = \'" & e.DataRow("物料代码") & "\'","_Identify Desc")\'获得最后一行
If dg IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
\'e.DataRow("出库数量") = dg("库存数量")
If e.DataRow("出库数量") > dg("库存数量") Then
e.Cancel = True
MessageBox.Show("出库量大于库存量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
整个事件的代码，好杂乱。
-- 发布时间：2014/4/5 11:56:00
--
谢谢！！！
-- 发布时间：2014/4/5 11:58:00
--
不知什么原因，代码重新复制粘贴就可以了