请用ComboBox控件
afterload事件
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")cmb.ComboList = "全部仓库|" & DataTables("表A").GetComboListString("型号")cmb.Text = "全部仓库"