|
If e.DataCol.Name = "审核"
Dim dr As DataRow = e.DataRow
If dr("审核") = True
If dr.IsNull("A加工员")=False AndAlso dr.IsNull("B加工员")=False
Dim dr1 As DataRow
If dr("A加工员")=dr("B加工员")
dr1= DataTables("加工员工时汇总").AddNew
dr1("加工员") = dr("A加工员")
dr1("产品") = dr("产品")
dr1("型号") = dr("型号")
dr1("A工序") = dr("A工序")
dr1("A工时") = dr("A工时")
dr1("B工序") = dr("B工序")
dr1("B工时") = dr("B工时")
dr1("第九列") = dr("_Identify")
Else
dr1= DataTables("加工员工时汇总").AddNew
dr1("加工员") = dr("A加工员")
dr1("产品") = dr("产品")
dr1("型号") = dr("型号")
dr1("A工序") = dr("A工序")
dr1("A工时") = dr("A工时")
dr1("第九列") = dr("_Identify")
dr1= DataTables("加工员工时汇总").AddNew
dr1("加工员") = dr("B加工员")
dr1("产品") = dr("产品")
dr1("B工序") = dr("B工序")
dr1("B工时") = dr("B工时")
dr1("第九列") = dr("_Identify")
End If
End If
Else
Dim drs As List(of DataRow) = DataTables("加工员工时汇总").Select("第九列=" & dr("_Identify"))
For Each dr1 As DataRow In drs
dr1.Delete
Next
End If
End If
| 
加好友 
发短信
Post By：2014/10/21 9:13:00 [只看该作者]
