Dim cmd As New SQLCommand Dim dt As DataTable Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName") cmd.C cmd.CommandText = "SELECT DISTINCT 用户 From {Users}" dt = cmd.ExecuteReader() For Each dr As DataRow In dt.Datarows cmb.Items.Add(dr("用户")) Next cmb.SelectedIndex = 0