主题：三个表间取值的问题

谢两位老师

又有一个问题：在调度窗口中“添加运单”，打开运单表点“选定”打勾后，再取消打上的勾，会提示以下错误：

 

.NET Framework 版本：2.0.50727.9035
Foxtable 版本：2018.10.9.1
错误所在事件：表，信息总表，DataColChanged
详细错误信息：
调用的目标发生了异常。
不能在 OnRowDeleting 事件内部调用 Delete。引发异常以取消此删除。

信息总表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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目.table

没看懂这个代码逻辑，下面代码是干嘛用的？

选定打勾后就复制到调度明细表上,如再去掉勾就从调度明细表上去除

 

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("调度单号") = e.DataRow("调度单号")
    dr("调度时间") = e.DataRow("调度时间")
ElseIf e.DataCol.Name = "选定" AndAlso e.DataRow("选定") = False Then
    DataTables("调度信息明细表").deletefor("id = '" & e.DataRow("id") & "'")
End If