主题：求助

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

参考代码

参考代码啊

Dim t As Table = Tables("车751")
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
Do While mindate <= maxdate
    If t.FindRow("日期 = #" & mindate & "#") < 0 Then
        Dim nr As Row = t.AddNew
        nr("日期") = mindate
        nr("车号") = "751"
        nr("支客户款") = 0
    End If
    mindate = mindate.AddDays(1)
Loop

Dim tnames() As String = {"车751"}
For Each tname As String In tnames
Dim t As Table = Tables(tname)
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
t.DataTable.ReplaceFor("_Sortkey", 9999, "日期 is null")
Dim i As Integer = 0
Do While mindate <= maxdate
    Dim nr As Row
    Dim idx As Integer =  t.FindRow("日期 = #" & mindate & "#")
    If idx < 0 Then
        nr = t.AddNew
        nr("日期") = mindate
        nr("车号") = "751"
        nr("支客户款") = 0
    Else
        nr = t.Rows(idx)
    End If
    nr("_Sortkey") = i
    i += 1
    mindate = mindate.AddDays(1)
Loop

Next

Dim tnames() As String = {"车751", "车457", "车789"}
For Each tname As String In tnames
Dim t As Table = Tables(tname)
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
t.DataTable.ReplaceFor("_Sortkey", 9999, "日期 is null")
Dim i As Integer = 0
Do While mindate <= maxdate
    Dim nr As Row
    Dim idx As Integer =  t.FindRow("日期 = #" & mindate & "#")
    If idx < 0 Then
        nr = t.AddNew
        nr("日期") = mindate
        nr("车号") = tname.Replace("车", "")
        nr("支客户款") = 0
    Else
        nr = t.Rows(idx)
    End If
    nr("_Sortkey") = i
    i += 1
    mindate = mindate.AddDays(1)
Loop

Next