关于下拉框自动排序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面为了排序加了个@，但到时候又要去掉@及前面字符，很麻烦，有没有更好的办法？

Dim ls As New List(of String)

For Each nm As String In DataTables("表A").GetValues("投标单位","报价 > 0")

Dim lst As List(Of DataRow) = DataTables("表A").Select("投标单位 = '" & nm & "'")

If ls.Contains(lst.Count & "@" & nm) = False Then

ls.Add(lst.Count & "@" & nm)

End If

ls.Sort()

ls.Reverse()

Dim st As String = String.Join("|",ls.ToArray)

e.Sender.ComboList = st

下载信息 [文件大小：下载次数： ]
点击浏览该文件:下拉框排序.table

此主题相关图片如下：dddd.png

主题：关于下拉框自动排序问题