主题：[求助]临时表问题，还没搞定

Dim dtb As New DataTableBuilder("表F")
dtb.AddDef("车号", Gettype(String), 32)
dtb.Build()
Dim Vals As List(Of String) = DataTables("表A").GetUniqueValues("[日期] Is Not Null","日期")
For Each Val As String In Vals
    Val = Val.Replace(" 0:00:00","")
    If DataTables("表F").DataCols.Contains(Val) = False Then
        DataTables("表F").DataCols.Add(Val, Gettype(String), 32)
    End If
Next
Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "车号" '指定数据来源列
f.DataTable = DataTables("表F") '指定数据接收表
f.DataCols = "车号" '指定数据接收列
f.ExcludeExistValue =True
f.ExcludeNullValue =True
f.Distinct =True
f.Append =True
f.Fill()
Dim drs As List(of DataRow)
For Each nr As DataRow In DataTables("表F").DataRows
    For Each val As String In Vals
        Val = Val.Replace(" 0:00:00","")
        drs = DataTables("表A").Select("车号 = '" & nr("车号") & "' And 日期 = #" & Val & "#")
        nr(val) = ""
        For Each dr As DataRow In drs
            nr(val) = nr(val) & dr("行程") & ","
        Next
        nr(val) = nr(val).Trim(",")
    Next
Next
MainTable = Tables("表F")

  是不是这样的?但是这个直接用按钮生成的.