- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 修改数量之后不让保存，老师我就是想出的数量不超过存量 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138139)
-- 发布时间：2019/7/23 16:48:00
-- 修改数量之后不让保存，老师我就是想出的数量不超过存量
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ceshi1.zip |
-- 发布时间：2019/7/23 17:35:00
--
在表事件控制即可。
-- 发布时间：2019/7/23 17:36:00
--
Dim Total1 As Long
Dim Total2 As Long
Total1 = DataTables("A").sqlCompute("Sum(sl)","bh=\'" & e.DataRow("bh") & "\'")
Total2 = DataTables("B").sqlCompute("Sum(sl)","bh =\'" & e.DataRow("bh") & "\'")
\'MessageBox.Show(Total1)
\'MessageBox.Show(Total2 )
If Total2 + e.DataRow("sl")> Total1 Then
e.Cancel=True
MessageBox.Show("超出上道工序产出的数量!")
End If
-- 发布时间：2019/7/23 17:36:00
--
DataColChanging
-- 发布时间：2019/7/23 17:37:00
--
老师我在上面的测试项目中写了这样的代码，您帮我看一下，我哪里写的不合理呢
-- 发布时间：2019/7/23 17:43:00
--
看看：http://www.foxtable.com/webhelp/topics/1522.htm