[已解决]用数据表的值作为临时表列名，并同步数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图所示，现有名为“主表”的数据表，有"A""B""C""D"四列。

现在想：

1，自动新建临时表，其中临时表的表名为“主表”中B列的值（重复的值只计一次）【如图，自动新建名为“张三”，“王二”的临时表】

此主题相关图片如下：4.png

2，如下图，临时表中的列名，来自主表D列的值（重复只计一次），且自动复制主表C列的值到对应的列下【如图，新建的名为“张三”的临时表中，有“电视”“汽车”两列，且这两列的值来自主表中“电视”“汽车”对应的C列值。同理，临时表“王二”也是如此。】

此主题相关图片如下：5.png

此主题相关图片如下：6.png

请各位高手不吝赐教，代码要怎样写才能实现这样的功能，或者大体思路是怎样，我现在一点头绪都没有。

感谢。

例子已上传

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.table

[此贴子已经被作者于2014-6-5 15:37:14编辑过]

一时疏忽，改成内部源了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.table

感谢大哥。太帅了

大哥，今天用你的代码开始写项目，出状况了。如图，生成的临时表全错位了。我的主表叫"rtpcr"，生成的临时表里每列的数据都是接着前一列的行号来的，导致前面都是空的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.zip

按钮代码为：

For Each n As String In DataTables("rtpcr").GetUniqueValues( "Target is not null","Target")

Dim dtb As New DataTableBuilder(n)

Dim dlist As List(of String) = DataTables("rtpcr").GetUniqueValues("Target='" & n & "'","sample")

For Each d As String In dlist

dtb.AddDef(d, Gettype(string), 40)

dtb.Build()

For Each d As String In dlist

For Each dr As DataRow In DataTables("rtpcr").Select("Target='" & n & "' and sample='" & d & "'")

Dim drr As DataRow = DataTables(n).Find(d & " is null")

If drr Is Nothing Then

drr = DataTables(n).AddNew

End If

drr(d)=dr("Quantity")

我找原因找了一晚上了，没有发现问题出在哪，大哥有时间的话帮我看看吧，谢谢

此主题相关图片如下：1.png

此主题相关图片如下：2.png

[此贴子已经被作者于2014-6-7 2:27:55编辑过]

主题：[已解决]用数据表的值作为临时表列名，并同步数据