If e.DataCol.Name = "审核" Then
Dim dr As DataRow = DataTables("生产车").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
If dr IsNot Nothing Then
dr("审核") = e.DataRow("审核")
End If
Else
Dim dr As DataRow = DataTables("生产磨").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
If dr IsNot Nothing Then
dr("审核") = e.DataRow("审核")
End If
End If
相实现在明细表审核(逻辑列)打勾,就到生产车表找规格、管制号相同行审核(逻辑列)也打勾,如生产车没找到就到生产磨表找,请指教,谢谢!!!