主题：创建表

 你要的是交叉统计吧？

http://www.foxtable.com/webhelp/scr/0165.htm

 用代码实现也行

http://www.foxtable.com/webhelp/scr/2394.htm

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("表D") '创建表
With tbl
    .AddColumn("第一列", ADOXType.String, 16)
    Dim prds As  List(of String) = DataTables("表A").GetValues("第二列")
    For Each prd As  String In prds
        If prd > "" Then
            .AddColumn(prd, ADOXType.String, 16)
        End If
    Next
End With
Builder.AddTable(tbl) '增加表
Builder.Close()

DataTables.Load("表D")

For Each dr As DataRow In DataTables("表A").Select("")
    Dim ndr As DataRow = DataTables("表D").addnew
    ndr("第一列") = dr("第一列")
Next

http://www.foxtable.com/webhelp/scr/2122.htm