以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  提取列所有值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115558)
--  作者：lxhmax
--  发布时间：2018/3/9 9:09:00
--  提取列所有值

GetComboListString(ColumnName，Filter, Sort)

ColumnName： 列名称，从此列中提取不重复的值。
Filter:    可选参数，指定一个条件表达式，只返回符合此条件的值。
Sort:      可选参数，指定排序列，如果省略，则根据取值列排序，通常无需设置。


请问老师们：

这个是提取列中不重复的值，我想提取列中所有值，包括重复的要用什么代码？

比如从1,1,2,2,3中就提取1,1,2,2,3，而不是1,2,3，也要有sort排序这个可选参数
--  作者：有点甜
--  发布时间：2018/3/9 10:22:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0400.htm

 
--  作者：lxhmax
--  发布时间：2018/3/9 11:18:00
--  
不是很懂实际编写，我是想直接得出这个结果1,1,2,2,3填入到一个单元格上
--  作者：有点甜
--  发布时间：2018/3/9 12:22:00
--  
以下是引用lxhmax在2018/3/9 11:18:00的发言：
不是很懂实际编写，我是想直接得出这个结果1,1,2,2,3填入到一个单元格上

 

比如代码

 

Dim s As String = ""
For Each dr As DataRow In DataTables("表A").Select("")
    s &= dr("第一列") & ","
Next
msgbox(s.trim(","))