Select Case e.DataCol.name
Case "日期" '
if e.OldValue <> nothing
Dim dr As DataRow = DataTables("查询").Find("日期 = #" & e.OldValue & "#")
If dr Is Nothing Then
dr = DataTables("查询").AddNew()
dr("日期") = e.DataRow("日期")
dr("序号") = e.DataRow("序号")
dr("材料名称") = e.DataRow("材料名称")
dr("规格型号") = e.DataRow("规格型号")
dr("工序") = e.DataRow("工序")
dr("数量") = e.DataRow("数量")
dr("员工") = e.DataRow("员工")
dr("备注") = e.DataRow("备注")
Else
dr("日期") = e.DataRow("日期")
End If
endif
Case "序号","材料名称","规格型号","工序","数量","员工","备注"
Dim dr As DataRow = DataTables("查询").Find("日期 = #" & e.DataRow("日期") & "#")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
[此贴子已经被作者于2019/8/28 11:32:01编辑过]