如何让在Listbox里选中的值，如：张三，让张三的具体情况，如：身高，年龄，体重等各项值分别显示在Textbox里？
各位帮帮忙 问题点数：0、回复次数：6Top
1 楼tztz520（午夜逛街）回复于 2005-04-02 09:25:36 得分 0
??
在用户单击的时候,你再根据点击的这个名字查到相关的信息显示出来不就行了么Top
2 楼niefuhua（阳光）回复于 2005-04-05 08:33:11 得分 0
这个最好用数据库来解决!
首先建立数据库:
姓名 身高，年龄，体重
然后
Dim strName As String
strName=List1.Text
'建立数据库连接
set rs=conn.execute("select * from TableName where 姓名='" & strName & "'")
text1=rs!身高
text2=rs!年龄
我的代码不完整,但大体思路就是这样
Top
3 楼njstalk（风和日丽）回复于 2005-04-05 09:46:02 得分 0
两个办法 1，把listbox里面的一行读出来，然后用截取字符串的方式来把你要的信息分别找出来放到textbox里面。
2，就是用数据库了，上面大哥的样子。Top
4 楼mayomide（芦苇）回复于 2005-04-05 10:27:38 得分 0
用数据库吧。
在单击事件里搜入上面的代码。Top
5 楼jjkk168（老加班的人--好好学习,天天吃饭）回复于 2005-04-06 02:16:21 得分 0
ListItem有一个Tag属性，将相关的属性放到Tag里面，点击的时候读出Tag里面的内容即可。Top
6 楼of123（）回复于 2005-04-06 08:32:52 得分 0
一个简单的办法，利用 ItemData：
ListBox 中的每一项 List 都有一个 ItemData，是 Long 型的（4字节），完全可以容纳你的年龄(<256)、身高（单位厘米<256）、体重数据。
'例子（从数据库填充数据到 ListBox）：
Do Until rs.EOF
List1.AddItem rs!UserName
List1.ItemData(List1.NewIndex) = rs!Weight * 65536 + rs!Age * 256 + rs!Height
rs.MoveNext
Loop
'取数据
Private Sub List1_Click()
txtHeight = List1.ItemData(List1.ListIndex) Mod 256
txtAge = (List1.ItemData(List1.ListIndex) Mod 65535)\256
txtWeight = List1.ItemData(List1.ListIndex) \ 65535
End Sub
Top
