DataCombo绑定数据库 它还另外增加一项不属入表的记录 如“所有”

来源:互联网 发布:剑倚天下神翼进阶数据 编辑:程序博客网 时间:2024/05/21 09:51

Set RstX = New ADODB.Recordset
StrSql = "SELECT Att_Code, Att_Name From Pro_Att "
RstX.Open StrSql, Cn, adOpenKeyset, adLockOptimistic
With DataCombo
Set .RowSource = RstX
.BoundColumn = "Att_Code"
.ListField = "Att_Name"
End With

Pro_Att表记录
001 大型
002 中型
003 小型
DataCombo显示结果:
大型
中型
小型
我想在第一条记录前加个不属入表里记录的“所有”
DataCombo显示结果:
所有
大型
中型
小型
这个功能怎么实现
象Comboxbox控件的 Comboxbox。additem "所有"

用select 语句解决.这是窍门,呵呵.
SELECT '' as Att_Code, '所有' as Att_Name From Pro_Att
union
SELECT Att_Code, Att_Name From Pro_Att