放在Datacolchanged 事件中,不行。
反复在同一行中改动"生产调度令号",而且"电装顾客财产异常处理"找不到此行的话,就会反复增加行,这就违反常识和逻辑。
不如放在BeforeSaveDataRow事件中,一次性处理。
If e.DataRow("是否异常") = "异常" Then
Dim dr As DataRow
dr = DataTables("电装顾客财产异常处理").Find("生产调度令号 = '" & e.DataRow("生产调度令号") & "'")
If dr Is Nothing Then
dr = DataTables("电装顾客财产异常处理").AddNew()
End If
dr("生产调度令号") = e.DataRow("生产调度令号")
dr("客户单位") = e.DataRow("客户单位")
dr("姓名") = e.DataRow("姓名")
dr("类别") = e.DataRow("类别")
dr("财产名称") = e.DataRow("财产名称")
dr("型号规格") = e.DataRow("型号规格")
dr("单位") = e.DataRow("单位")
End If
[此贴子已经被作者于2013-6-14 13:46:40编辑过]