以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  yangming版主进来，按指定顺序获得列表项目的例子。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5004)
--  作者：狐狸爸爸
--  发布时间：2009/11/16 12:33:00
--  yangming版主进来，按指定顺序获得列表项目的例子。
第一列作为列表项目，以编号为为序，直接在命令窗口执行即可：

Dim lst As New List(of String)
Dim Val As String
For Each dr As DataRow In DataTables("表A").Select("","编号")
    if dr.IsNull("第一列")= False AndAlso lst.Contains(dr("第一列")) = False
        val  = val & dr("第一列") & "|"
        lst.add(dr("第一列"))
    End If
Next
Return Val.Trim("|")
[此贴子已经被作者于2009-11-16 12:33:17编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/11/16 12:37:00
--  
如果是从后台获得，直接用SQL语句，加上Distinct关键词即可
--  作者：程兴刚
--  发布时间：2009/11/16 12:54:00
--  
我是不请自来，先收藏！
--  作者：mr725
--  发布时间：2009/11/16 13:04:00
--  
还是老六的代码简洁～  

看我的http://www.foxtable.com/dispbbs.asp?boardid=2&id=4992&page=&star=2 十二楼，真麻烦啊～ 
--  作者：kylin
--  发布时间：2009/11/16 15:00:00
--  
 收藏！呵呵
--  作者：狐狸爸爸
--  发布时间：2009/11/16 15:11:00
--  
以下是引用mr725在2009-11-16 13:04:00的发言：
还是老六的代码简洁～  


再过一年，我们就差不多了。
--  作者：yangming
--  发布时间：2009/11/16 16:20:00
--  

谢谢贺老师,我试试看看
--  作者：pyh6918
--  发布时间：2009/11/16 17:49:00
--  

谢老六，这正是我想要的。正是：踏破铁鞋无觅处，得来全不费工夫。