叫你学基础自己不学。去掉设置的代码啊,比如类似代码
Dim sfhg As WinForm.ComboBox = e.Form.Controls("是否合格")
sfhg.ComboList = xxxxx