Dim cmb As WinForm.ComboBox cmb = Forms("窗口1").Controls("ComboBox1") cmb.DisplayMember = "客户名称" '设置显示列 cmb.ValueMember = "客户编号" '设置取值列 cmb.DataSource = "客户" '列表项目来自于客户表
cmb.DataSort = "ID" 没有作用呀