Foxtable(狐表)用户栏目专家坐堂 → yangming版主进来,按指定顺序获得列表项目的例子。


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

主题:yangming版主进来,按指定顺序获得列表项目的例子。

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
yangming版主进来,按指定顺序获得列表项目的例子。  发帖心情 Post By:2009/11/16 12:33:00 [只看该作者]

第一列作为列表项目,以编号为为序,直接在命令窗口执行即可:

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编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/16 12:37:00 [只看该作者]

如果是从后台获得,直接用SQL语句,加上Distinct关键词即可

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/11/16 12:54:00 [只看该作者]

我是不请自来,先收藏!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/11/16 13:04:00 [只看该作者]

还是老六的代码简洁~  

看我的http://www.foxtable.com/dispbbs.asp?boardid=2&id=4992&page=&star=2 十二楼,真麻烦啊~ 

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


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2009/11/16 15:00:00 [只看该作者]

 收藏!呵呵

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/16 15:11:00 [只看该作者]

以下是引用mr725在2009-11-16 13:04:00的发言:
还是老六的代码简洁~  


再过一年,我们就差不多了。


 回到顶部
美女呀,离线,留言给我吧!
yangming
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/16 16:20:00 [只看该作者]

谢谢贺老师,我试试看看


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:11151 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/11/16 17:49:00 [只看该作者]

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


 回到顶部