Dim cmb As WinForm.ComboBox = e.Form.Controls("Cob_bm")
'cmb.ComboList = DataTables("员工信息").GetComboListString("Bm")
Dim cmd As New SQLCommandDim dt As DataTable
cmd.ConnectioName=“项目管理系统" '数据库名称
cmd.CommandText = "SELECT Bm Fro m {员工信息}"dt = cmd.ExecuteReadercmb.Combolist = dt.GetComboListString("bm")