新手求助...................(这样的标题应该很显眼了)

来源：百度知道 编辑：UC知道 时间：2024/06/19 16:38:57
连接好数据库后,LIST控件添加好数据库的名称列,
我怎么可以单击LIST里的内容然后TEXT1显示我单击LIST内容的名称的姓名,TEXT2显示LIST内容的名称的性别.

就是说,如果我单击LIST里的2,TEXT1显示你,TEXT2显示女,如果单击3,TEXT1显示他,TEXT2显示男的意思.

名称 姓名 性别
1 我 男
2 你 女
3 他 男

..........
N 她 女
给出代码...............(追50分)

假设你已经会设置一个data控件正确连接你的数据库和库中的表

'list1加载第1列,注意不能用Form_load
Private Sub Form_Activate()
Dim tmprs As Recordset
Set tmprs = Data1.Recordset
List1.Clear
Do While tmprs.EOF = False
List1.AddItem tmprs(0)
tmprs.MoveNext
Loop
End Sub

'下列代码中“aaa”是你的表名，a是list1对应的列名
Private Sub List1_Click()
Data1.RecordSource = "select * from aaa where a='" & List1.Text & "'"
Data1.Refresh
Text1.Text = Data1.Recordset(1)
Text2.Text = Data1.Recordset(2)
End Sub

首先定义一个变量tmps as string
tmps=list1.text
这里最好检查一下tmps是否正确
假设tmps="3他 男"
从tmps中分离出你所需要的数据就可以了
可以参考使用的函数有
left(),mid(),right(),instr(),instrrev()
如果不明白具体用法,就查一下,

把这些语句放在list1_click过程中

定义LIST的textchange事件或selectindexchange 或selectvaluechange事件，在该事件中定义对应list的当前内容，TEXT1，TEXT2要显示的内容