关于COMBOX的问题

[sunjie521]

我现在有一个COMBO1
With Combo1
.AddItem "请选择"
.AddItem "现行有效"
.AddItem "作废"
.AddItem "未生效"
End With
在数据库里记录的是：现行有效对应的是A，作废对应的是W，未生效对应的N，现在有想在COMBO1里选择一个之后查询数据库，WHERE条件应该怎么写，COMBO1选择的值怎么变成数据库里对应的值呢

[sunjie521]

COMBO1所显示的内容在数据库里没有表，是直接设定好的，但是查询别的表的时候需要用到COMBO1里的内容，“现行有效对”应的是A，“作废对应”的是W，“未生效”对应的N，SQL语句“select * from table1 where state='COMBO1 对应的值（A\W\N）'",我要问的就是选择COMBO1里的现行有效、作废、未生效，那么A\W\N怎么传递给SQL呢

[of123]

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)) & "'"

[dzy1232012]

select * from 表名 where 表字段='" +combo1.list(combo1.listindex) +"'"

[dzy1232012]

combo1.clear
combo1.additem(rs.fields("表字段名")
combo1.listindex=0

[clear_zero]

楼上正解 显示一个值，item储存你要查询的值

[twohorses]

引用 4 楼 of123 的回复:

With Combo1 .AddItem "请选择" .AddItem "现行有效" .ItemData(.NewIndex) = Asc("A") .AddItem "作废" .ItemData(.NewIndex) = Asc("W") .AddItem "未生效" .ItemData(.NewIndex) = Asc("N") End With ……

++