以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  创建表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95901)
--  作者：410941696
--  发布时间：2017/2/8 11:52:00
--  创建表
创建表b  表b的第一列 和表a的第一列的列名称和 数据相同， 表b的其余列名称 是表A的第二列数据  不知道能不能实现
[此贴子已经被作者于2017/2/8 11:54:51编辑过]
--  作者：有点色
--  发布时间：2017/2/8 11:57:00
--  

 你要的是交叉统计吧？

 

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

 
--  作者：有点色
--  发布时间：2017/2/8 11:58:00
--  

 用代码实现也行

 

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

 
--  作者：410941696
--  发布时间：2017/2/8 15:31:00
--  
不统计表 是新建表 如果交叉统计出来的是临时表 不能保持 不能编辑
--  作者：410941696
--  发布时间：2017/2/8 15:32:00
--  
不统计表 是新建表 如果交叉统计出来的是临时表 不能保持 不能编辑
--  作者：有点色
--  发布时间：2017/2/8 15:45:00
--  

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
--  作者：有点色
--  发布时间：2017/2/8 15:45:00
--  

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

 
--  作者：410941696
--  发布时间：2017/2/9 14:27:00
--  
谢谢楼主