主题：复制粘贴错误

这个错误不是经常会出现,同一个粘贴复制的动作,前面几个单元格都没报错,后面有可能就出现报错,

但我只是简单的复制 工程编码 而已,并没有编辑 工程fa piao消账码

If e.DataCol.name = "工程fa piao消账码" Then
    Dim drs  As List (of DataRow ) =  DataTables("销项fa piao").Select("工程fa piao消帐码 = '"& e.datarow("工程fa piao消账码") & "'")
    For Each dr As DataRow In drs
        If e.DataRow.IsNull("工程fa piao消账码") Then
            dr("收款状况") = Nothing
            e.DataRow("摘要") = Nothing
            e.DataRow("工程编码") = Nothing
        Else
            Dim str As String = e.DataRow("日期") & "已收款" & e.DataRow("收入")
            dr("收款状况") = str
            e.DataRow("摘要") = "收" & dr("fa piao抬头") & ":" & dr("备注") & "工程款"
            e.DataRow("工程编码") = dr("工程编码")
        End If
    Next
End If

 

此主题相关图片如下：不知名错误.png


此主题相关图片如下：不知名错误2.png

试试

 

systemready = False
If e.DataCol.name = "工程fa piao消账码" Then
    Dim drs  As List (of DataRow ) =  DataTables("销项fa piao").Select("工程fa piao消帐码 = '"& e.datarow("工程fa piao消账码") & "'")
    For Each dr As DataRow In drs
        If e.DataRow.IsNull("工程fa piao消账码") Then
            dr("收款状况") = Nothing
            e.DataRow("摘要") = Nothing
            e.DataRow("工程编码") = Nothing
        Else
            Dim str As String = e.DataRow("日期") & "已收款" & e.DataRow("收入")
            dr("收款状况") = str
            e.DataRow("摘要") = "收" & dr("fa piao抬头") & ":" & dr("备注") & "工程款"
            e.DataRow("工程编码") = dr("工程编码")
        End If
    Next
End If
systemready = True