Question

vb中text显示问题

有七个text同属一个组，有一个命令按钮，点击按钮在text中显示内容，代码如下，为何有的text中不显示
Private Sub Command1_Click()
On Error Resume Next
If Text1(0).text = "" Then
MsgBox "请输入学号"
Else
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library;Data Source=zlz"
cn.Open ConStr
cn.CursorLocation = adUseServer
rs.Open "Select * from reader where 学号='" & Text1(0).text & "'", cn, adOpenKeyset, adLockPessimistic
Text1(1).text = rs.Fields("姓名").Value
Text1(2).text = rs.Fields("性别").Value
Text1(3).text = rs.Fields("年龄").Value
Text1(4).text = rs.Fields("学院").Vlaue
Text1(5).text = rs.Fields("专业").Vlaue
Text1(6).text = rs.Fields("班级").Vlaue
End If
End Sub

Answer 1

你调试下看看查询出来的数据是不是空,我觉得这是数据的问题.

Answer 2

为什么不用单一text，其实可以有七个text，分别给每个取一个名字，这样一一对应，不是很方便，而且很容易找到错误。