主题：创建表

创建表b  表b的第一列 和表a的第一列的列名称和 数据相同， 表b的其余列名称 是表A的第二列数据  不知道能不能实现

 你要的是交叉统计吧？

 

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

 

谢谢楼主