此主题相关图片如下:7.png
老师,在DataColChanging中输入了下面的代码,在“核对否”中单击取消后,不仅把数据接收表的数据删除了,同时还把数据来源表的数据删除了,是怎么回事?
此主题相关图片如下:6.png
If e.DataCol.Name = "核对否" AndAlso e.newvalue = True Then
If MessageBox.Show("确认要核对吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
If e.DataRow("驾驶员姓名") = e.DataRow("车主") Then
Dim nma() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","代驾费_折扣","代垫费_折扣","驾驶员_包干合计"} 'A表数据来源列
Dim nmb() As String = {"日期","公司","姓名","车牌号","天数","租车费_本人","代驾费_本车","代垫费","包干合计"} 'B表数据接收列
Dim dr As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
If e.DataRow("驾驶员姓名") = "单位自驾" Then
Dim nma() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","车主_包干合计"} 'A表数据来源列
Dim nmb() As String = {"日期","公司","姓名","车牌号","天数","租车费_非本人","包干合计"} 'B表数据接收列
Dim dr As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
Dim nma1() As String = {"收车时间","所属公司","驾驶员姓名","车辆_牌号","天数","代驾费_折扣","代垫费_折扣"} 'A表数据来源列
Dim nmb1() As String = {"日期","公司","姓名","车牌号","天数","代驾费_非本车","代垫费"} 'B表数据接收列
Dim dr1 As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma1.Length - 1
dr1(nmb1(i)) = e.DataRow(nma1(i))
Next
Dim nma2() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","车主_包干合计"} 'A表数据来源列
Dim nmb2() As String = {"日期","公司","姓名","车牌号","天数","租车费_非本人","包干合计"} 'B表数据接收列
Dim dr2 As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma2.Length - 1
dr2(nmb2(i)) = e.DataRow(nma2(i))
Next
End If
End If
Dim nma3() As String = {"收车时间","承租单位","天数","租车费_小计","代驾费_小计","代垫费_小计","总计"} 'A表数据来源列
Dim nmb3() As String = {"日期","单位名称","天数","租车费","代驾费","代垫费","合计"} 'B表数据接收列
Dim dr3 As DataRow = DataTables("单位结算").AddNew
For i As Integer = 0 To nma3.Length - 1
dr3(nmb3(i)) = e.DataRow(nma3(i))
Next
Else
e.cancel = True
End If
End If
If e.DataCol.Name = "核对否" AndAlso e.newvalue = False Then
If MessageBox.Show("确认要取消吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
If e.DataRow("驾驶员姓名") = e.DataRow("车主") Then
Dim nma() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","代驾费_折扣","代垫费_折扣","驾驶员_包干合计"} 'A表数据来源列
Dim nmb() As String = {"日期","公司","姓名","车牌号","天数","租车费_本人","代驾费_本车","代垫费","包干合计"} 'B表数据接收列
Dim dr As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
DataTables("车主结算").deletefor("日期=#" & e.DataRow("收车时间") & "# and 车牌号 = '" & e.DataRow("车辆_牌号") & "'")
Else
If e.DataRow("驾驶员姓名") = "单位自驾" Then
Dim nma() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","车主_包干合计"} 'A表数据来源列
Dim nmb() As String = {"日期","公司","姓名","车牌号","天数","租车费_非本人","包干合计"} 'B表数据接收列
Dim dr As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
DataTables("车主结算").deletefor("日期=#" & e.DataRow("收车时间") & "# and 车牌号 = '" & e.DataRow("车辆_牌号") & "'")
Else
Dim nma1() As String = {"收车时间","所属公司","驾驶员姓名","车辆_牌号","天数","代驾费_折扣","代垫费_折扣"} 'A表数据来源列
Dim nmb1() As String = {"日期","公司","姓名","车牌号","天数","代驾费_非本车","代垫费"} 'B表数据接收列
Dim dr1 As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma1.Length - 1
dr1(nmb1(i)) = e.DataRow(nma1(i))
Next
DataTables("车主结算").deletefor("日期=#" & e.DataRow("收车时间") & "# and 车牌号 = '" & e.DataRow("车辆_牌号") & "'")
Dim nma2() As String = {"收车时间","所属公司","车主","车辆_牌号","天数","租车费_折扣","车主_包干合计"} 'A表数据来源列
Dim nmb2() As String = {"日期","公司","姓名","车牌号","天数","租车费_非本人","包干合计"} 'B表数据接收列
Dim dr2 As DataRow = DataTables("车主结算").AddNew
For i As Integer = 0 To nma2.Length - 1
dr2(nmb2(i)) = e.DataRow(nma2(i))
Next
DataTables("车主结算").deletefor("日期=#" & e.DataRow("收车时间") & "# and 车牌号 = '" & e.DataRow("车辆_牌号") & "'")
End If
End If
Dim nma3() As String = {"收车时间","承租单位","天数","租车费_小计","代驾费_小计","代垫费_小计","总计"} 'A表数据来源列
Dim nmb3() As String = {"日期","单位名称","天数","租车费","代驾费","代垫费","合计"} 'B表数据接收列
Dim dr3 As DataRow = DataTables("单位结算").AddNew
For i As Integer = 0 To nma3.Length - 1
dr3(nmb3(i)) = e.DataRow(nma3(i))
Next
DataTables("单位结算").deletefor("日期=#" & e.DataRow("收车时间") & "# and 单位名称 = '" & e.DataRow("承租单位") & "'")
Else
e.cancel = True
End If
End If