增加行后信息显示不全,是什么原因?是和其他代码有冲突?
增加行没有问题,但生成的行中只有“合同性质_一单一招”和"工作联系单编号",“生产令号”、“协作内容”、“合同类别”都生成不过去
Select Case e.DataCol.name
Case "合同签订"
If e.newvalue = False Then
DataTables("外协作合同台账").DeleteFor("工作联系单编号='" & e.DataRow("工作联系单编号") & "'")
Else
Dim ndr As Row = Tables("外协作合同台账").AddNew
ndr("工作联系单编号") = e.DataRow("工作联系单编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("协作内容") = e.DataRow("协作内容")
ndr("合同性质_年度合同") = e.DataRow("合同性质_年度合同")
ndr("合同性质_一单一招") = e.DataRow("合同性质_一单一招")
ndr("合同类别") = e.DataRow("合同类别")
ndr.Move(0)
End If
End Select
Select Case e.DataCol.Name
Case "生产令号","协作内容","合同类别"
Dim Filter As String = "[工作联系单编号] = '" & e.DataRow("工作联系单编号") & "'"
Dim drs As List(Of DataRow) = DataTables("外协作合同台账").Select(Filter)
For Each dr4 As DataRow In drs
dr4(e.DataCol.Name) = e.NewValue
Next
End Select