Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")cmb.ComboList = = DataTables("厂历").SqlGetComboListString("year(日期)")