[求助]如何让代码生成的列表项目不用排序？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Col.Name = "进货人" Then '如果如果当前列的列名称为"来源"列,然后
    Dim ls As New List(Of String)
    Dim cs AS String
    ls = DataTables("入库").GetUniqueValues("","进货人")
    For each s As String In ls
        If cs > "" Then
            cs = cs & "|"
        End If
        cs = cs & s
    Next
    e.Col.Combolist ="|"+cs+"|"
End If

也就是只按照输入的先后顺序排列！

比如我在按照输入：3、9、6、5、1的顺序增加5行，我需要得到：3|9|6|5|1，但又不允许重复，比如我在按照输入：3、9、6、6、5、1、1的顺序增加7行，我需要得到的还是：3|9|6|5|1，别的方法也可以，只要能实现，要求执行速度要优先！

[此贴子已经被作者于2009-9-11 8:20:21编辑过]

主题：[求助]如何让代码生成的列表项目不用排序？