Question

VB中点击list1列出的项目，同时在text1显示与该项目同一行的字段。

比如在数据库的表1中有字段：学号、姓名、电话，我检索学号并在List中列出来，但是怎么在TEXT中显示其它字段如姓名、电话。并且我点击list中学号时姓名、电话也随着学号变化。如图

界面

数据库





Answer 1

完全按照你的要求做好了，如图：

 

怎么给你？

追问

你好在么？能发给我么？企鹅253729300

Answer 2

'设置一个公共函数组：如
Dim a() As String
Private Sub Form_Load()
  ReDim a(4, 0)       '第一维数说明0=ID 1=学号 2=姓名 3=电话 4=地址
  '此处按你List提取字段的方法,提取表内容并用
  ReDim Preserve a(4, UBound(a, 2) + 1)
  '方法将字段赋值给a数组
End Sub
'点击List1把字段值赋予文本框Text1控件组
Private Sub List1_Click()
 For i = 0 To 4
  Text1(i) = a(i, List1.ListIndex + 1)
 Next
End Sub

追问

不行啊 ，Text1(i) = a(i, List1.ListIndex + 1)这一句编译时 显示不能给只读性语句赋值，而且 “ReDim a(4, 0) '第一维数说明0=ID 1=学号 2=姓名 3=电话 4=地址”这维度怎么赋值？能帮我弄一下么？我发给你？

追答

简单来说就是把你的数据库内容提取到二维数组a中，然后点击List1时再根据当前List1的行号读出数组值就可以了。

Answer 3

1、首先确保各文本框和数据控件连接并显示相应的数据字段，当你用数据控件在移动数据记录时，观察文本框显示内容正确
2、在List 增加数据记录定位的程序
Data1.Recordset.FindFirst "学号='" + Trim(List.Text) + "'"

追问

不行啊朋友，调试错误424

追答

你连接数据库用的是Data 控件还是 Adodc控件?

追问

adodc1,我发给你，你帮我看看好么？

追答

来晚了!不好意思...
界面安排的很是不错!,一看就是个写程序的苗子...
从界面上看所有的 TextBox 都连接正确了,List也装入了"学号"数据,现在的任务有两个
1、在“学号”文本框输入一个学号，“检索”
2、当点击 List 中的学号时，数据记录移动，自动找到该学号的相关数据，并显示在各 TextBox 中
...
OK
你的数据控件 Adodc是在FormLoad() 事件中这样连接的吗？
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\InetTemp\stockDB.mdb"
.CommandType = adCmdText
.RecordSource = "SELECT * FROM 表1"
.Refresh
End With

一、 那就在“检索”按扭中增加如下的程序：
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\InetTemp\stockDB.mdb"
.CommandType = adCmdText
.RecordSource = "SELECT * FROM 表1 WHERE 学号='"+Trim(Text1)+"'"
.Refresh
End With
上面的Text1 就是你输入“学号”的TextBox的名字，你自己要搞正确才可以，否则有是错误!

字数限制，不让写第二个问题了。。。(已经发私信给你了)

Answer 4

留个QQ我帮你改改

追问

253729300