Dim cmb1 As WinForm.ComboBox = e.form.Controls("ComboBox1")cmb1.ComboList = DataTables("机房计件工价").SqlGetComboListString("format(生效日期,'yyyy-MM-dd')")