方法一:用下拉窗口
http://www.foxtable.com/help/topics/2466.htm
方法二:动态合成
Dim cmb As WinForm.ComboBox = e.SenderDim str As String = e.Form.Controls("ComboBox1").Valuecmb.ComboList = DataTables("表A").SqlGetComboListString("第一列 + ',' + 第二列")