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

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

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

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

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

谢谢！

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

谢谢- 是我漏掉了 (i) . 

本题 End 了。