如何在combox显示数据？

Question

表 mytable  格式                          id    area  sno
                           1    aaa   001
                           2    bbb   002
                           3    ccc   003
如何使用combox 显示 下拉列表中显示 area字段
但是提交查询后 查询要用sno字段查询 怎么获取sno字段的值啊？我只会用combox.text

Answer 1

private sub form_load()
  '...
  set rs = cn.execute("select * from mytable")
  do until rs.eof
    combo1.additem rs!area
    combo1.itemdata(combo1.newindex) = val(rs!sno)
  loop
end subprivate sub combo1_click()
  strsql = "select * from mytable where sno='" & format(combo1.itemdata(combo1.listindex), "00#") & "'"
  '...
end sub

Answer 2

不知道是不是你所需要的?
用,打开数据库(ADO),用习惯了,不过DAO差不多
for i=1 to rs.recordcount
    'SPACE(3) 加三空格  ??不知道你的字段里面的内容是不是都是标准的,
    '如果是统一的长度,下面可行,否则要加处理函数了,呵呵
    combo1.additem& i space(3) & rs.fields!area & space(3) & rs.fields!sno  
    rs.movenext
next i
至于查询
   str=right(combo1.text,3)  'sno
   strsql="select * from mytable where sno='"& str &"'"