- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动变更为完成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165314)
-- 发布时间：2021/5/13 14:24:00
-- 自动变更为完成
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:发货通知.zip |
上截图1为订单合同评审：如物料编号211000201的订单400件，订单评审时订单状态为 “执行”，如下图2。当该物料编号发货大于等于订单数400件时，是否可以在订单合同评审的订单状态自动变为 “完成”，不知程序如何写。
-- 发布时间：2021/5/13 14:37:00
--
DataColChanged事件：
Select Case e.DataCol.Name
Case "订单数","发货数量"
if e.DataRow("发货数量") > e.DataRow("订单数") then
e.DataRow("订单状态") = "完成"
end if
End Select
-- 发布时间：2021/5/13 16:35:00
--
老师好，我问的问题麻烦附件您再看一下（一个是《订单合同评审》，一个是《发货通知单》）
。
-- 发布时间：2021/5/13 17:14:00
--
没看懂这2个表之间的关系。如果要改其它表的数据，加一个查询，比如
DataColChanged事件：
Select Case e.DataCol.Name
Case "订单数","发货数量"
if e.DataRow("发货数量") > e.DataRow("订单数") then
dim dr as datarow = datatables("订单合同评审").find("订单编号=\'" & e.DataRow("订单编号") & "\'")
if dr isnot nothing then
dr("订单状态") = "完成"
end if
end if
End Select