窗口afterload加载项目列表该如何排序？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口afterload加载项目列表该如何排序？

共有32173人关注过本帖树形打印复制链接主题：窗口afterload加载项目列表该如何排序？

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47506 积分：251448 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/4/3 16:22:00 [显示全部帖子]

没有办法，除非你自己编码生成：

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
Dim str1 as string
For each dr As dataRow = DataTables("项目表").Select("[项目代码] is not null","项目代码")
str1 = Str1 & "|" & dr("项目名称")
Next
cmb.ComboList = str1

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47506 积分：251448 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/4/3 16:40:00 [显示全部帖子]

以下是引用lxl在2009-4-3 16:36:00的发言：
Select 不排除重复行吧.
万一有相同的项目名称咋办图片点击可在新窗口打开查看

想用GetUniqueValues，可是这个方法的排序参数又被去掉了。
只有用SQLCommand？

这样可以排除重复的：

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
Dim Lst As List(of DataRow) = DataTables("项目表").Select("[项目代码] is not null","项目代码")
Dim str1 as string = lst(0)("项目名称")
For  i As integer = 1 to Lst.Count -1
      if lst(i)("项目编号") <> lst(i-1)("项目编号") Then
           str1 = Str1 & "|" & dr("项目名称")
      End If
Next
cmb.ComboList = str1

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47506 积分：251448 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/4/3 17:55:00 [显示全部帖子]

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
Dim Lst As List(of DataRow) = DataTables("项目表").Select("[项目代码] is not null","项目代码")
Dim str1 as string = lst(0)("项目名称")
For  i As integer = 1 to Lst.Count -1
      if lst(i)("项目编号") <> lst(i-1)("项目编号") Then
           str1 = Str1 & "|" & lst(i)("项目名称")
      End If
Next
cmb.ComboList = str1

下一主题 >> << 上一主题

主题：窗口afterload加载项目列表该如何排序？