在enter输入.
Dim cmb As WinForm.Combobox = e.SenderDim r As Row = Tables("表名").Currentcmb.ComboList = DataTables("表名").GetComboListString("列名","筛选条件 = '" & r("筛选条件") & "'")这个代码就是取不重复值的代码,可以看看帮助和论坛中关于组合框的内容.