请教：combox？？

Question

你打开rs.open时这样写，
rs.open "select distinct fieldsname from 表",cn,3,1
之后
combo1.clear
do until rs.eof
    if rs(fieldName)&""<>"" then
       combo1.additem rs(fieldName)
    end if
    rs.movenext
loop

Answer 1

sql="select fieldname from table group by fieldname"
rs.open sql
combo1.clear
do until rs.eof
    if rs(fieldName)&""<>"" then
       combo1.additem rs(fieldName)
    end if
    rs.movenext
loop