Dim cmd As New SQLCommandDim dt As DataTableDim cmb As WinForm.ComboBoxcmd.CommandText = "SELECT DISTINCT 客户 From {订单}" '红字部分dt = cmd.ExecuteReader()cmb = e.Form.Controls("ComboBox1")cmb.ComboList= dt.GetComboListString("客户")