以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何从后台提取不重复数据填充到另一个Tables  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102271)
--  作者：乡里出城
--  发布时间：2017/6/16 14:13:00
--  [求助]如何从后台提取不重复数据填充到另一个Tables
 

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

 

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
--  发布时间：2017/6/16 14:38:00
--  
SQLGetValues 从指定列中，获取不重复的值，以集合的形式返回
GetValues    从指定列中，获取不重复的值，以集合的形式返回
[此贴子已经被作者于2017/6/16 14:39:07编辑过]
--  作者：有点色
--  发布时间：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
--  作者：乡里出城
--  发布时间：2017/6/16 15:10:00
--  
谢谢