主题：这段代码怎么改

Dim dr1 As DataRow = e.DataRow
If DataTables("还款表").Find("单据号 = '" & dr1("单据号") & "' And 记账单位 = '" & dr1("记账单位") & "'") Is  Nothing Then
    Dim dr2 As DataRow = DataTables("还款表").AddNew
    Dim Cols1() As String = {"单据号","记账单位"}
    Dim Cols2() As String = {"单据号","还款单位"}
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
End If