Foxtable(狐表)用户栏目专家坐堂 → [求助]如何从后台提取不重复数据填充到另一个Tables


  共有2161人关注过本帖树形打印复制链接

主题:[求助]如何从后台提取不重复数据填充到另一个Tables

帅哥哟,离线,有人找我吗?
乡里出城
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:426 积分:3505 威望:0 精华:0 注册:2015/4/17 9:13:00
[求助]如何从后台提取不重复数据填充到另一个Tables  发帖心情 Post By:2017/6/16 14:13:00 [只看该作者]

 

直接把已加载的到订单表的各类产品统计到统计表那里可以按案例使用下面代码,但我想从后台的订单表里直接提取不重复的产品填充到统计表里,应如何写?

 

dim f As New Filler
f
.SourceTable = DataTables("订单") '指定数据来源
f
.SourceCols = "产品" '指定数据来源列
f
.DataTable = DataTables("统计") '指定数据接收表
f
.DataCols = "产品" '指定数据接收列
f
.Fill()

 

想把DataTables("订单").SQLGetComboListString("产品") 不重复的产品填充到统计表里,应如何写?填充的时候,不够行能自动增加行

[此贴子已经被作者于2017/6/16 14:20:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/6/16 14:38:00 [只看该作者]

SQLGetValues 从指定列中,获取不重复的值,以集合的形式返回
GetValues    从指定列中,获取不重复的值,以集合的形式返回
[此贴子已经被作者于2017/6/16 14:39:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/16 14:47:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
乡里出城
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:426 积分:3505 威望:0 精华:0 注册:2015/4/17 9:13:00
  发帖心情 Post By:2017/6/16 15:10:00 [只看该作者]

谢谢

 回到顶部