根据记录产生临时表，通过设置变量，按日期筛选以后，这个表弄了一整天一直搞不定，还请高手继续指导下，谢谢！

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

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

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")

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

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .value IsNot Nothing
        filter= "车号  = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

\'条件已经合成了，下面的自己写吧。

我可能没说清楚要求，现在的问题是，筛选以后，记录是可以不产生的，但是那个日期列还会生成，我需要的效果是如果筛选几天的日期，只产生几个日期列。否则如果有了几年的数据，那会产生成百上千的列。

如果没有选择日期，那根据哪些天来生成表？

1、如果不选择日期，就生成现在这个样子的表，不过这个只能在测试时用，真正使用的时候是不现实的

2、现在的问题是，如果我先筛选出12月1日-2日的数据，但产生的表有1日、2日、3日三列，其中1日、2日两个列有记录。那么我有1年的数据的话，如果我要查看一个星期，就会产生365个列，其中7个列有数据。

这怎么可能，你获得不重复日期的时候，加上前面3楼生成的条件，问题不就解决了吗？

GetUniqueValues是可以设置条件的。

终于搞定了，感谢狐爸，布莱克朱两位老师热情指导！我要好好研究下。