文本框根据combo1的当前内容，显示对应信息

[vfpbu1]

数据库:中有5个字段：用户名，密码，权限，时间1，时间2
控件：一个combo1控件(显示用户名)，三个文本框控件分别显示权限，时间1，时间2


要求：当选择combo1中的内容时，文本框根据变化时实 显示数据库的 对应字段内容
下面?????处如何填写代码

Private Sub Combo1_Change()
??????????
End Sub

Private Sub form_load()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic
xt_gl.MoveFirst
If Not xt_gl.EOF Then
   Do While Not xt_gl.EOF
      Combo1.AddItem xt_gl.Fields(0)
      xt_gl.MoveNext
   Loop
   Combo1.ListIndex = 0
End If
Text1.Text=?????
Text2.Text=?????
Text3.Text=?????
xt_gl.Close
End Sub

[chinaboyzyq]

Private Sub Combo1_Change()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

   xt_gl.Find "用户名='" & Combo1.Text & "'"
   Text1.Text = xt_gl(2)
   Text2.Text = xt_gl(3)
   Text3.Text = xt_gl(4)
   xt_gl.Close
End Sub

Private Sub form_load()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic
xt_gl.MoveFirst
If Not xt_gl.EOF Then
   Do While Not xt_gl.EOF
      Combo1.AddItem xt_gl.Fields(0)
      xt_gl.MoveNext
   Loop
   Combo1.ListIndex = 0
End If
Text1.Text = xt_gl(2)
Text2.Text = xt_gl(3)
Text3.Text = xt_gl(4)
xt_gl.Close
End Sub

[chinaboyzyq]

参考一下这个：
http://topic.csdn.net/u/20110318/15/a581fac8-a07c-49e3-bf7e-88444ab4ab28.html?5180

[无·法]

Private Sub Combo1_Change()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理 where 用户名 = '" & Combo1.Text & "'"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic
if xt_gl.recordcount>=0 then
   Text1.Text = xt_gl("权限")
   Text2.Text = xt_gl("时间1")
   Text3.Text = xt_gl("时间2")
end if
xt_gl.Close
End Sub

另外建议在formload的时候将所有资料保存到一个二维数组中，这样每次检索数组就行。当数据库有更新时就更新这个数组的内容，这样既可以做到同步又可以减少数据库的操作次数还可以提高效率。

[孤独剑_LPZ]

同意前几楼的，问题很简单，写法上有多样，如
Text1.Text = xt_gl(2)
Text1.Text = xt_gl("权限")
上面2种写法都对，再补充一种吧
Text1.Text = xt_gl!权限

[qq529633582]

应该是“实时”，但实时用在这里不恰当。。。

[vfpbu1]

[Quote=引用楼主 vfpbu1 的回复:]
为什么combo1中的值改变时，text的值没有变化？？？？？

[vfpbu1]

[Quote=引用 1 楼 chinaboyzyq 的回复:]

VB code

Private Sub Combo1_Change()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

xt_gl.Find "用户名='" & ……
[/Quote]

为什么combo1中的值改变时，text的值没有变化？？？？？

[pingle209]

都是牛人！

[king2233932]

我试过那代码，但也是txt文本显示不了啊