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

以下是引用lxl在2009-4-3 16:36: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