Dim cmb As WinForm.ComboBox = e.Sender If cmb.Items.Count > 0 Then '如果已经设置了项目 Return '则返回 End If Dim c As Col = cmb.BindCol '获得绑定的Col Dim dr As DataRow = DataTables("项目").Find("[列] = '" & c.Name & "'") If dr IsNot Nothing Then '如果在项目表找到对应的行 cmb.Combolist = dr("列表项目") '则设置列表项目 End If