老师，下面代码在我导入数据到“微信收入支出”表中时然后在把数据复制到微信支出账单、微信收入账单的过程中到额(元)列时数据就不复制了只复制空的单元格即使在“微信收入支出”表中重置列也没有用，必须把微信支出账单、微信收入账单的行全部删除后再在微信收入支出表中重置"收/支”列在为复制行。
If e.DataCol.Name = "收/支"
If e.DataRow("收/支") = "支出" Then
'If e.DataCol.Name = "审核"
' If e.DataRow("审核") = True Then
Dim nma() As String = {"入帐编号","交易时间","交易类型","交易对方","商品","收/支","金额(元)","支付方式","当前状态","交易单号","商户单号","备注" } 'A表数据来源列
Dim nmb() As String = {"入帐编号","交易时间","交易类型","交易对方","商品","收/支","金额(元)","支付方式","当前状态","交易单号","商户单号","备注" } 'B表数据接收列
e.DataRow.save
Dim dr2 As DataRow = DataTables("微信支出账单").Find("入帐编号 = '" & e.DataRow("入帐编号") & "'") '找到指定返回的行
If dr2 Is Nothing Then
Dim dr3 As DataRow = DataTables("微信支出账单").AddNew
For i As Integer = 0 To nma.Length - 1
dr3(nmb(i)) = e.DataRow(nma(i))
Next
Else
End If
' 对支出表的操作
ElseIf e.DataRow("收/支") = "收入" Then
Dim nma() As String = {"入帐编号","交易时间","交易类型","交易对方","商品","收/支","金额(元)","支付方式","当前状态","交易单号","商户单号","备注" } 'A表数据来源列
Dim nmb() As String = {"入帐编号","交易时间","交易类型","交易对方","商品","收/支","金额(元)","支付方式","当前状态","交易单号","商户单号","备注" } 'B表数据接收列
e.DataRow.save
Dim dr2 As DataRow = DataTables("微信收入账单").Find("入帐编号 = '" & e.DataRow("入帐编号") & "'") '找到指定返回的行
If dr2 Is Nothing Then
Dim dr3 As DataRow = DataTables("微信收入账单").AddNew
For i As Integer = 0 To nma.Length - 1
dr3(nmb(i)) = e.DataRow(nma(i))
Next
Else
End If
Else
' 输入其它值的操作
End If
End If
加好友 
发短信
Post By：2020/10/20 22:34:00 [只看该作者]
