'窗体加载时 '若学院信息表非空,则添加入combo控件并显示第一条记录信息 cmbxymc.clear do while not rsxyxxb.eof cmbxymc.additem trim(rsxyxxb.fields( "xymc ").value) rsxyxxb.movenext loop if cmbxymc.listcount > 0 then cmbxymc.listindex = 0 end if
点击combo控件时 private sub cmbxymc_click() if cmbxymc.listcount > 0 then if cmbxymc.listindex > = 0 then '选定条目后,执行的代码 '可以使用filter属性进行过滤,相当于查询 ........ end if end if end sub