主题：表的下拉

Dim s2 As New List(Of String)

Dim v1() As String = {"aa","bb","cc"}

s2.AddRange(v1)

If s2.Contains(e.Col.Name)= True Then

    e.Col.ComboList=DataTables(e.Table.Name).GetComboListString(e.Col.Name)

End If