社区
VB基础类
帖子详情
combo问题?
LICHIBIN
2003-08-20 11:03:26
COMBO 想显两个字段内容,而选一个结果:
如COMBO下拉后显‘ID’,’名称‘。选中后的“ID”的值。
...全文
52
11
打赏
收藏
combo问题?
COMBO 想显两个字段内容,而选一个结果: 如COMBO下拉后显‘ID’,’名称‘。选中后的“ID”的值。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihonggen0
2003-08-20
打赏
举报
回复
你可以考虑将你的id加入ItemData属性
Combo1.AddItem "0xx"
Combo1.ItemData(0) = 0 '你第0项的id值
Combo1.AddItem "1xx"
Combo1.ItemData(1) = 1 '你第1项的id值
Combo1.AddItem "2xx"
Combo1.ItemData(2) = 2 '你第2项的id值
在点击的时候就很容易取出id值了
Private Sub Combo1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub
lihonggen0
2003-08-20
打赏
举报
回复
你可以考虑将你的id加入ItemData属性
Combo1.AddItem "0xx"
Combo1.ItemData(0) = 0 '你第0项的id值
Combo1.AddItem "1xx"
Combo1.ItemData(1) = 1 '你第1项的id值
Combo1.AddItem "2xx"
Combo1.ItemData(2) = 2 '你第2项的id值
在点击的时候就很容易取出id值了
Private Sub Combo1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub
didishu0807
2003-08-20
打赏
举报
回复
利用combobox的tag值吧
of123
2003-08-20
打赏
举报
回复
假定ID值是数值型,数值大小不超过长整型
Dim tmp As String
Do Until rs.EOF
tmp = Cstr(rs!ID)
Combo1.AddItem tmp & Space(12 - Len(tmp)) & rs!名称
Combo1.Itemdata(Combo1.NewIndex) = rs!ID
rs.MoveNext
Loop
Private Sub Combo1_Click()
Dim n As Long
n = Combo1.Itemdata(Combo1.listindex)
Msgbox "您选中的ID = " & n
End Sub
LICHIBIN
2003-08-20
打赏
举报
回复
试**的方法
aiur2000
2003-08-20
打赏
举报
回复
比如rs!id 和rs!nam:
do while not rs.eof
combo1.additem rs!id & " " & rs!nam '中间插入空格
rs.movenext
loop
'a是数组
a=split(trim(combo1.text)," ") '用判断空格来分
会得到a(1)和a(2)
查询时再用a(1)和a(2)即可
lihonggen0
2003-08-20
打赏
举报
回复
利用Combo的ItemData属性加入你的id值
Private Sub Combo1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
Combo1.AddItem "0xx"
Combo1.ItemData(0) = 0
Combo1.AddItem "1xx"
Combo1.ItemData(1) = 1
Combo1.AddItem "2xx"
Combo1.ItemData(2) = 2
End Sub
射天狼
2003-08-20
打赏
举报
回复
如果用COMBO控件的话就得用字符串分隔开,取的时候再分开.
或者用其它的控件带替,或者自己做一个控件.
lisong770818
2003-08-20
打赏
举报
回复
同意以上方法,我曾经也用过以上方法,都行。
strongfisher
2003-08-20
打赏
举报
回复
combo本身没有这个功能
你用datagrid或listbox控件代替吧
oarsman
2003-08-20
打赏
举报
回复
据我所知combo本身没有这个功能,你自己做函数处理吧!拆分一下字符串就可以了!
VC列表list上增加edit控件和
combo
控件实现
VC列表list上增加edit控件和
combo
控件实现。博客地址:http://blog.csdn.net/bingdianlanxin,有
问题
欢迎留言!
前端开源库-node-
combo
前端开源库-node-
combo
nodejs的静态组合
精彩编程与编程技巧-处理 Dropdown List型
Combo
的录入
问题
...
处理 Dropdown List型
Combo
的录入
问题
Group
Combo
Box
我需要一个控制字在微软产品字体组合框类似:显示最近使用的项目和一系列不同的组界头所有可用的物品。最近使用的项目必须按时间顺序排序,与最近的项目放在首位。另一方面,现有的所有项目必须按字母顺序排列。我没有发现任何的实现,将满足这些要求,所以我决定创建一个。 一个前提得出,从视觉上区分其他物品头施加使用所有者描述的组合框。然而,有几个额外的
问题
解决(如标题项不能选择)。这些
问题
将被讨论和解决他们提出。
combo
-url-parser:解析组合网址
util to parse
combo
ed url; install npm install
combo
-url-parser useage
combo
Parser = require('
combo
-url-parser');
combo
Parser(url); exambles '/foo.js' > ['/foo.js] '/??foo.js,bar.js' > ['/foo.js','/bar.js'] '/hello??foo.js,bar.js' > ['/hello/foo.js','/hello/bar.js'] '/hello??foo.js,d/bar.js' > ['/hello/foo.js','/hello/d/bar.js'] ChangeLog 0.1.3 中间件,去掉配置,现在不需要配置 port 优化逻辑,如果一个文件不存在,就返回 404, 方便
问题
定件
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章