主题：求助一个模板，生在统计表

先生成横向的表，再导出。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&replyID=&skin=1

参考代码

Dim ndt As new DataTableBuilder("临时")
ndt.AddDef("第一列",Gettype(Date))
Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("表A").datarows
    For Each s As String In (dr("第三列") & "," & dr("第五列")).split(",")
        If s > "" AndAlso ls.Contains(s) = False Then
            ls.add(s)
            ndt.AddDef(s, Gettype(String))
        End If
    Next
Next
ndt.Build

For Each dr As DataRow In DataTables("表A").datarows
    Dim fdr As DataRow = DataTables("临时").find("第一列 = #" & dr("第一列") & "#")
    If fdr Is Nothing Then
        fdr = DataTables("临时").AddNew
        fdr("第一列") = dr("第一列")
    End If
    For Each s As String In (dr("第三列") & "," & dr("第五列")).split(",")
        If s > "" AndAlso ls.Contains(s) Then
            fdr(s) = dr("第四列")
        End If
    Next
Next

For Each dr As DataRow In DataTables("表A").datarows

改成

Dim Filter As string = 条件语句

For Each dr As DataRow In DataTables("表A").Select(filter)

http://www.foxtable.com/help/topics/2720.htm

Dim d As Date = new Date(2015, 9, 1)

Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

For Each dr As DataRow In DataTables("表A").Select(filter)