主题：返回负值请教

Select Case e.DataCol.Name

    Case "付款属性"     

     If e.NewValue = “其他应付” Then

        Dim nsma() As String = {"付款日期","付款金额","付款单位","备注","供应商"} 'A表数据来源列

    Dim nsmb() As String = {"日期","其他应付_金额","单位","其他应付_说明","其他应付_单位"} 'B表数据接收列

    Dim dsr As DataRow = DataTables("其他账务").AddNew

    For i As Integer = 0 To nsma.Length - 1

        dsr(nsmb(i)) = e.DataRow(nsma(i))  

            Next

        End If

End Select