- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口afterload加载项目列表该如何排序？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2278)
-- 发布时间：2009/4/3 16:14:00
-- 窗口afterload加载项目列表该如何排序？
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList = DataTables("项目表").GetComboListString("项目名称","[项目代码] is not null")
这段代码只能按项目名称排序，如果想以项目代码排序，应该怎样做？
-- 发布时间：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
-- 发布时间：2009/4/3 16:36:00
--
Select 不排除重复行吧.
万一有相同的项目名称咋办
想用GetUniqueValues，可是这个方法的排序参数又被去掉了。
只有用SQLCommand？
-- 发布时间：2009/4/3 16:38:00
--
For each dr As dataRow = DataTables("项目表").Select("[项目代码] is not null","项目代码") ，
= 提示syntax error 语法错误，替换为 in 才ok！～ 总裁有时也犯点小错误。
lxl版主说得对呀，还好我这里绝对没有重复～
谢谢！
-- 发布时间：2009/4/3 16:40: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
-- 发布时间：2009/4/3 16:41:00
--
-- 发布时间：2009/4/3 16:43:00
--
Select 不排除重复行吧.
万一有相同的项目名称咋办
想用GetUniqueValues，可是这个方法的排序参数又被去掉了。
只有用SQLCommand？
那就完善他爸的就是了:
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
Dim str1 as string
For each dr As dataRow In DataTables("项目表").Select("[项目代码] is not null","项目代码")
if Str1 is Nothing orelse Str1.Indexof(dr("项目名称")) = -1 then
str1 = Str1 & "|" & dr("项目名称")
End if
Next
cmb.ComboList = str1
-- 发布时间：2009/4/3 16:53:00
--
哈哈，结论下错了
这次我脑子少转个弯，光想着现成的方法又排重、又排序了。
-- 发布时间：2009/4/3 17:19:00
--
don的代码ok ！
狐爸的代码总有一点点小毛病：如
1、2楼代码中 = 应为 in ，才ok。
2、5楼代码的dr没有定义，把dr 改成 lst 后 ， 又提示：
编译错误：Operator \'&\' is not defined for types \'string\' and \'datarow\' .
错误代码：str1 = str1 & "|" & lst("项目名称")
-- 发布时间：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