Dim Filter As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'"
Dim Filter1 As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'and 班组 <> '"& "下料" &"'"
Dim drs1 As List(Of DataRow) = DataTables("无损_构件清单").Select(Filter)
Dim drs2 As List(Of DataRow) = DataTables("无损_检测明细").Select(Filter)
Dim drs3 As List(Of DataRow) = DataTables("无损_检测明细").Select(Filter1)
Select Case e.DataCol.Name
Case "检验批","报告编号_利光","报告编号_钢构"
For Each dr1 As DataRow In drs1
dr1("检验批") = e.DataRow("检验批")
dr1("报告编号_利光") = e.DataRow("报告编号_利光")
dr1("报告编号_钢构") = e.DataRow("报告编号_钢构")
Next
For Each dr2 As DataRow In drs2
dr2("检验批") = e.DataRow("检验批")
dr2("报告编号_利光") = e.DataRow("报告编号_利光")
dr2("报告编号_钢构") = e.DataRow("报告编号_钢构")
Next
Case "车间"
Dim Result As DialogResult = MessageBox.Show("是否将明细表数据全部更改(不包含下料组)","提示",MessageBoxButtons.YesNo)
For Each dr1 As DataRow In drs1
dr1("车间") = e.DataRow("车间")
Next
If Result = DialogResult.Yes Then
For Each dr2 As DataRow In drs2
dr2("车间") = e.DataRow("车间")
Next
Else
Return
End If
Case "班组"
If e.DataRow.OriginalValue("班组") Is Nothing Then
Return
Else
Dim Result As DialogResult = MessageBox.Show("是否将明细表数据全部更改(不包含下料组)","提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
For Each dr3 As DataRow In drs3
For Each dr1 As DataRow In drs1
dr1("班组") = e.DataRow("班组") '修改构件清单表
Next
dr3("班组") = e.DataRow("班组") '修改检测明细表(不包含班组等于下料组的行)
Next
ElseIf Result = DialogResult.No Then
For Each dr1 As DataRow In drs1
dr1("班组") = e.DataRow("班组")
Next
Else
Return
End If
End If
End Select
加好友 
发短信
Post By：2018/8/3 18:11:00 [显示全部帖子]
