Dim s As String Dim t As Table = Tables("总因子") Dim s1 As String = "列名称|" & t.Cols(t.Cols.Count-2).Name & "|" & t.Cols(t.Cols.Count-1).Name & "|" For Each c As Col In Tables("总因子").Cols If s1.Contains(c.name & "|") = False Then s &= c.name & "|" End If Next e.Form.Controls("ComboBox1").ComboList = s.Trim("|")
|