当前位置:编程学习 > VB >>

关于COMBOX的问题

我现在有一个COMBO1
With Combo1
        .AddItem "请选择"
        .AddItem "现行有效"
        .AddItem "作废"
        .AddItem "未生效"
End With
在数据库里记录的是:现行有效对应的是A,作废对应的是W,未生效对应的N,现在有想在COMBO1里选择一个之后查询数据库,WHERE条件应该怎么写,COMBO1选择的值怎么变成数据库里对应的值呢 --------------------编程问答-------------------- select * from 表名 where 表字段='" +combo1.list(combo1.listindex) +"'" --------------------编程问答-------------------- combo1.clear 
combo1.additem(rs.fields("表字段名")
combo1.listindex=0
--------------------编程问答-------------------- COMBO1所显示的内容在数据库里没有表,是直接设定好的,但是查询别的表的时候需要用到COMBO1里的内容,“现行有效对”应的是A,“作废对应”的是W,“未生效”对应的N,SQL语句“select * from table1 where state='COMBO1 对应的值(A\W\N)'",我要问的就是选择COMBO1里的现行有效、作废、未生效,那么A\W\N怎么传递给SQL呢
--------------------编程问答-------------------- With Combo1
  .AddItem "请选择"
  .AddItem "现行有效"
  .ItemData(.NewIndex) = Asc("A")
  .AddItem "作废"
  .ItemData(.NewIndex) = Asc("W")
  .AddItem "未生效"
  .ItemData(.NewIndex) = Asc("N")
End With

If Combo1.ListIndex > 0 Then strSQL = "SELECT * FROM table1 WHERE state='" & Chr(Combo1.ItemData(Comobo1.ListIndex)) & "'"
--------------------编程问答-------------------- 楼上正解

显示一个值,item储存你要查询的值 --------------------编程问答--------------------
引用 4 楼 of123 的回复:
With Combo1
  .AddItem "请选择"
  .AddItem "现行有效"
  .ItemData(.NewIndex) = Asc("A")
  .AddItem "作废"
  .ItemData(.NewIndex) = Asc("W")
  .AddItem "未生效"
  .ItemData(.NewIndex) = Asc("N")
End With
……

++
补充:VB ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,