主题：求助

dataColChanged事件

If e.DataCol.name = "金额" Then
    If e.DataRow.IsNull("日期") = False AndAlso e.DataRow.IsNull("欠款人") = False Then
        Dim fdr As DataRow = DataTables("车" & e.DataRow("欠款人")).Find("日期 = #" & e.DataRow("日期") & "#")
        If fdr Is Nothing Then
            fdr =  DataTables("车" & e.DataRow("欠款人")).addnew
            fdr("日期") = e.DataRow("日期")
            fdr("车号") = e.DataRow("欠款人")
        End If
        fdr("支款") = e.DataRow("金额")
    End If
End If