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("年份")