三个单选框代码可统一为: Dim Cbb As WinForm.ComboBox = e.Form.Controls("ComboBox1") e.Form.Controls("Label2").Text = "请选择" & e.Sender.Text & ":" Cbb.Items.Clear Cbb.Value = "" Dim ls As New List(Of String) ls = DataTables("订单").GetUniqueValues("",e.Sender.Text) Cbb.Items.AddRange(ls.ToArray()) Vars("ColName") = e.Sender.Text Cbb.Select()