关于固定格式表填充数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于固定格式表填充数据

共有4001人关注过本帖树形打印复制链接主题：关于固定格式表填充数据

lgj716330

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1301 积分：10056 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/1 11:57:00 [只看该作者]

求助数据填充

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

如果同时选取多个来源表的产品|客户的不重复值进行填充，上述代码要如何改

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/1 11:58:00 [只看该作者]

那你就得先把多个来源表的数据合并到一个表里面去，再写上面的代码。

lgj716330

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1301 积分：10056 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/1 13:38:00 [只看该作者]

上述代码我做了一个按钮，但每按一次就会重复填充一次，如果在填充前先清除原来的记录，代码如何改

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/1 14:06:00 [只看该作者]

这样写

Dim f As New Filler
f.SourceTable = DataTables("订单111") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("订单222") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据