- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]临时表导出问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105139)
-- 发布时间：2017/8/12 12:43:00
-- [求助]临时表导出问题
生成了一个临时表，对临时表做了合并模式的操作，可是选择高速导出后，excel表格里依然没有合并，该怎么解决
-- 发布时间：2017/8/12 14:12:00
--
用这种方式导出：http://www.foxtable.com/webhelp/scr/0179.htm
勾上后面2个选项
-- 发布时间：2017/8/13 10:03:00
-- [求助]
谢谢大人。
此主题相关图片如下：qq截图20170813100134.png
此主题相关图片如下：qq截图20170813100122.png
我还遇到了一个问题，就是我设计生成的那个临时表，我只想让他生成其中的一部分行，而不是全部的表。我已经加了筛选按钮，应该怎么写代码，才能实现，只把筛选出来的行，出现在临时表中呢？
生成临时表的代码是：
Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("第一列",Gettype(String), 4)
dtb.AddDef("第二列",Gettype(String), 10)
dtb.AddDef("列a_名称",Gettype(String), 10)
dtb.AddDef("列a_内容",Gettype(String), 10)
dtb.AddDef("列b",Gettype(String), 10)
dtb.AddDef("列c",Gettype(String), 10)
dtb.Build()
Dim kms() As String = {"第三列_a","第四列_a","第五列_a"}
Dim kms2() As String = {"第三列_b","第四列_b","第五列_b"}
Dim kms3() As String = {"第三列_c","第四列_c","第五列_c"}
For Each dr1 As DataRow In DataTables("实验").DataRows
For i As Integer = 0 To kms.Length - 1
Dim dr2 As DataRow = DataTables("表D").AddNew()
dr2("第一列") = dr1("第一列")
dr2("第二列") = dr1("第二列")
\'dr2("第六列") = dr1("第六列")
dr2("列a_名称") = kms(i)
dr2("列a_内容") = dr1(kms(i))
dr2("列b") = dr1(kms2(i))
dr2("列c") = dr1(kms3(i))
Next
Next
MainTable = Tables("表D")
-- 发布时间：2017/8/13 10:55:00
--
http://www.foxtable.com/webhelp/scr/1533.htm
http://www.foxtable.com/webhelp/scr/0559.htm
-- 发布时间：2017/8/14 16:13:00
-- [求助]
不明白啊，就想只把筛选出来的行导出到临时表，看那几个帮助文件看不懂，试了也不行，求详解
-- 发布时间：2017/8/14 17:05:00
--
以下是引用qingqian369在2017/8/14 16:13:00的发言：
不明白啊，就想只把筛选出来的行导出到临时表，看那几个帮助文件看不懂，试了也不行，求详解
不明白啊，就想只把筛选出来的行导出到临时表，看那几个帮助文件看不懂，试了也不行，求详解
For Each dr1 As DataRow In DataTables("实验").DataRows
改成
For Each dr1 As Row In Tables("实验").Rows
-- 发布时间：2017/8/14 17:06:00
--
如果还不行，做个例子上来测试。
-- 发布时间：2017/8/15 7:49:00
-- [求助]
嗯嗯，这个改了以后可以了，谢谢大大