- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何使数据联动 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112996)
-- 发布时间：2018/1/6 14:47:00
-- 如何使数据联动
此主题相关图片如下：a.png
老师我想让这两行以长和宽作为条件，进行数据联动，因为这两行是组合产品，因此必须以两行中最小数量决定最终的组合数量，也就是图上所以一定小于等于5，并且录入组合数量的时候，无论录入哪一行，另外一行组合数量也会联动录入相同的组合数量，而且能够判断如何大于两行中最小数量的值，提示无法生产这么多组合产品，请检查。
-- 发布时间：2018/1/6 15:35:00
--
DataColChanging事件
If e.DataCol.Name = "组合数量" Then
Dim cnt As Integer = e.DataTable.Compute("min(组合数量)","长=\'" & e.DataRow("长") & "\' and 宽=\'" & e.DataRow("宽") & "\'")
If cnt < e.NewValue Then
msgbox("无法生产这么多组合产品，请检查")
e.Cancel = True
End If
End If
DataColChanged事件
If e.DataCol.Name = "组合数量" Then
SystemReady = False
e.DataTable.ReplaceFor("组合数量",e.NewValue,"长=\'" & e.DataRow("长") & "\' and 宽=\'" & e.DataRow("宽") & "\'")
SystemReady = True
End If
-- 发布时间：2018/1/6 15:56:00
--
谢谢老师！