信息总表DATACOLCHANGED事件的代码如下:
If e.DataCol.Name = "选定" AndAlso e.DataRow("选定") = True Then
Dim nma() As String = {"办事处","运输车辆性质","交车单位名称","配板清单号","运输单号","任务单号","VIN码","上游客户","品牌","商品车","数量","出发地","到达地","运输动态","里程","计划下达时间","计划交车时间","下游终点省份","下游实际运输动态","ID"} 'A表数据来源列
Dim nmb() As String = {"办事处","运输车辆性质","交车单位名称","配板清单号","运输单号","任务单号","VIN码","上游客户","品牌","商品车","运输台数","出发地","到达地","运输动态","里程","计划下达时间","计划交车时间","下游终点省份","下游实际运输动态","ID"} 'B表数据接收列
Dim dr As DataRow = DataTables("调度信息明细表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
dr("调度单号") = Tables("调度信息总表").current("调度单号")
dr("调度时间") = Tables("调度信息总表").current("调度时间")
End If
If Tables("调度信息明细表").Current IsNot Nothing Then
If e.DataCol.Name = "选定" AndAlso e.DataRow("选定") = False Then
Tables("调度信息明细表").Current.Delete()
End If
End If