主题：求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table

 

此主题相关图片如下：qq截图20160418101038.png

时间排序后怎么不变成这样呢？

Dim t As Table = Tables("车751")   此处要是有很多车XXX表 这个地方该怎么写？
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
Tables("车751").Sort = "日期"

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

怎么别的车表没反应呢？

此主题相关图片如下：qq截图20160418125429.png

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