以下是引用实话实说在2017/4/25 18:15:00的发言：
只有表B的用料都有数据(对应产品)才能在表A勾选
Select Case e.DataCol.name
Case "产品型号","产品规格"
Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
If fdr IsNot Nothing Then
e.DataRow("标识") = True
Else
e.DataRow("标识") = False
End If
End Select
表B_DataColChanged
If e.DataCol.name = "产品型号" Then
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.oldvalue & "' and 产品规格='" & e.DataRow("产品规格") & "' and 用料 > 0")
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "' and 用料 > 0")
End If
If e.DataCol.name = "产品规格" Then
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.OldValue & "'")
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
End If
If e.DataCol.name = "用料" Then
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
End If
加好友 
发短信
Post By：2017/4/25 17:30:00 [显示全部帖子]
