主题：排序求助

這樣?

Dim T As String
Dim Ls As New List(Of String)

For Each r As Row In Tables("排序").Rows
    If  Ls.Contains(r("规格")) = False Then
        Ls.Add(r("规格"))
        T = T & "|" &  r("规格")
    End If
Next

Return T

昏!不要期望別人是保姆!『碼心』給你了郤不會變通:

If e.Col.Name = "型号" Then
    e.Col.Combolist = DataTables("引用本表").GetComboListString("型号")
End If

If e.Col.Name = "规格" Then
    Dim T As String
    Dim Ls As New List(Of String)
   
    For Each r As Row In Tables("排序").Rows
        If  Ls.Contains(r("规格")) = False Then
            Ls.Add(r("规格"))
            T = T & "|" &  r("规格")
        End If
    Next
   
    e.Col.Combolist = T
End If