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

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList = DataTables("项目表").GetComboListString("项目名称","[项目代码] is not null")

这段代码只能按项目名称排序，如果想以项目代码排序，应该怎样做？

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

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

Select 不排除重复行吧.
万一有相同的项目名称咋办

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

For each dr As dataRow = DataTables("项目表").Select("[项目代码] is not null","项目代码") ，
=  提示syntax error 语法错误，替换为 in 才ok！～ 总裁有时也犯点小错误。

lxl版主说得对呀，还好我这里绝对没有重复～

谢谢！

这样可以排除重复的：

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

那就完善他爸的就是了:
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

哈哈，结论下错了
这次我脑子少转个弯，光想着现成的方法又排重、又排序了。

 don的代码ok ！
狐爸的代码总有一点点小毛病：如
1、2楼代码中 =  应为 in ，才ok。
2、5楼代码的dr没有定义，把dr 改成 lst 后 ， 又提示：
             编译错误：Operator '&' is not defined for types 'string' and 'datarow' .
             错误代码：str1 = str1 & "|" & lst("项目名称")

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