应该这样:Dim s As StringFor Each dc As DataCol In DataTables("表名").DataCols s = s & "|" & dc.nameNexte.Form.Controls("ComboBox").ComboList = s否则ComboBox被反复设置,影响效率。