以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何向临时表中添加查询数据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28407)
--  作者：samica
--  发布时间：2013/1/28 15:00:00
--  [求助]如何向临时表中添加查询数据？
Dim dtb As New DataTableBuilder("查询表")
dtb.AddDef("企业名称", Gettype(String), 100)
dtb.AddDef("法人", Gettype(String), 16)
dtb.AddDef("单位地址", Gettype(String), 100)
dtb.Build()
Dim f As New Filler
f.SourceTable = DataTables("基础数据") \'指定数据来源
f.SourceCols = "企业名称,法人,单位地址" \'指定数据来源列
f.DataTable = DataTables("查询表") \'指定数据接收表
f.DataCols = "企业名称,法人,单位地址" \'指定数据接收列
f.Fill() \'填充数据
Forms("窗口1").show
Tables("窗口1_Table1").DataSource = dtb.BuildDataSource()
应该如何向临时表中添加数据？
哪位高人帮助一下，谢谢！
--  作者：lin_hailun
--  发布时间：2013/1/28 15:03:00
--  
 楼主，把最后一句改一下。

Tables("窗口1_Table1").DataSource = DataTables("查询表")
--  作者：lin_hailun
--  发布时间：2013/1/28 15:04:00
--  
 或者改一下次序。

Dim dtb As New DataTableBuilder("查询表")
dtb.AddDef("企业名称", Gettype(String), 100)
dtb.AddDef("法人", Gettype(String), 16)
dtb.AddDef("单位地址", Gettype(String), 100)
Forms("窗口1").show
Tables("窗口1_Table1").DataSource = dtb.BuildDataSource()

Dim f As New Filler
f.SourceTable = DataTables("基础数据") \'指定数据来源
f.SourceCols = "企业名称,法人,单位地址" \'指定数据来源列
f.DataTable = DataTables("窗口1_Table1") \'指定数据接收表
f.DataCols = "企业名称,法人,单位地址" \'指定数据接收列
f.Fill() \'填充数据
--  作者：samica
--  发布时间：2013/1/28 15:22:00
--  
林老师，谢谢！又解决了一个问题，我自己搞了几小时都搞不定。
--  作者：lin_hailun
--  发布时间：2013/1/28 15:23:00
--  
以下是引用samica在2013-1-28 15:22:00的发言：
林老师，谢谢！又解决了一个问题，我自己搞了几小时都搞不定。


楼主，熟能生巧，慢慢来。