这个当客户名字不变时，我改了其他列的数据，然后保存，放款表并不会有数据随着变化呢
我按照以下代码改了，查询条件是客户名字，没有变化呀
If e.DataCol.Name = "最新进度" AndAlso e.DataRow("最新进度") = "放款" Then
Dim nma() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"} 'A表数据来源列
Dim nmb() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"}'B表数据接收列
Dim dr1 As DataRow = DataTables("已放款").find("客户名字='" & e.DataRow("客户名字") & "'") '自己改为合适的查询条件
If dr1 Is Nothing Then
Dim dr As DataRow = DataTables("已放款").AddNew
End If
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
然后我换成了这样，也是没变
Dim dr As DataRow
Dim dr1 As DataRow
If e.DataCol.Name = "最新进度" AndAlso e.DataRow("最新进度") = "放款" Then
Dim nma() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"} 'A表数据来源列
Dim nmb() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"}'B表数据接收列
'("归属人 = '" & e.DataRow("归属人") &
dr1= DataTables("已放款").Find("客户名字 = '" & e.DataRow("客户名字") & "'")'已放款表的行
If dr1 Is Nothing Then
dr= DataTables("已放款").AddNew '已放款添加一行
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
For i As Integer = 0 To nma.Length - 1
dr1(nmb(i)) = e.DataRow(nma(i))
Next
End If
End If
'保存表
e.DataRow.Save()
加好友 
发短信
Post By：2018/1/22 16:07:00 [显示全部帖子]
此主题相关图片如下：qq截图20180122160725.png
