现学现卖一个。

If e.Col.Name = "型号" Then
    e.Col.Combolist = DataTables("产品").GetComboListString("型号")
End If
If e.Col.Name = "规格" Then
    Dim List As String = DataTables("产品").GetComboListString("规格","[规格] Is Not Null And [型号] = \'" & e.Row("型号") & "\'")
    Dim s1() As String = List.Split("|")
    Dim s2(s1.Length - 1) As Single
    For i As Integer = 0 To  s1.Length  - 1
        s2(i) =s1(i)
    Next
    Array.Sort(s2)
    Dim Val As String
    For i As Integer = 0 To s2.Length  - 1
        Val = Val & s2(i) & "|"
    Next
    e.Col.Combolist = Val
End If

用了一下，与1楼相比，1、“型号”列不能录入新的型号；2、“规格”列新录入的规格不能加入下拉列表。

字符型的数字排序经常会遇到，希望加入到狐表系统中默认使用

这个应该很好解决吧, Datacolchanged 事件中判断一下 Val 中是否包含新录入的数字, 否则重新执行一下C版的代码就可以了.

如果你知道问题出在哪里，修正代码应该很简单了。

If e.Col.Name = "型号" Then
    e.Col.Combolist = DataTables("产品").GetComboListString("型号")
End If
If e.Col.Name = "规格" Then
    Dim List As String = DataTables("产品").GetComboListString("规格","[型号] = \'" & e.Row("型号") & "\'")
    List = List.Trim("|")
    If List.Length > 0 Then
        Dim s1() As String = List.Split("|")
        Dim s2(s1.Length - 1) As Single
        For i As Integer = 0 To  s1.Length  - 1
            s2(i) =s1(i)
        Next
        Array.Sort(s2)
        Dim Val As String
        For i As Integer = 0 To s2.Length  - 1
            Val = Val & s2(i) & "|"
        Next
        e.Col.Combolist = Val
    Else
        e.Col.Combolist = ""
    End If
End If