表B_DataColChanged
If e.DataCol.name = "产品型号" Then
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.oldvalue & "' and 产品规格='" & e.DataRow("产品规格") & "'")
DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
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
表A_DataColChanged
Select Case e.DataCol.name
Case "产品型号","产品规格"
Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "' and (用料= 0 or 用料 is null)")
If fdr IsNot Nothing Then
e.DataRow("标识") = False
Else
e.DataRow("标识") = True
End If
End Select
加好友 
发短信
Post By：2017/4/25 20:52:00 [显示全部帖子]
