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

If e.Col.Name = "进货人" Then
    Dim ls As New List(Of String)
    Dim cs As String
    For Each r As DataRow In DataTables("入库").DataRow
        dim s As string = r("进货人")
        If s > "" AndAlso ls.Contains(s) = False
            lst.Add(s)
            cs = cs & "|" & s
        End If
    Next
    e.Col.Combolist = cs.Trim("|")
End If

单个值的判断, 用DataTable的Find方法，是不需要排序的。