查询问题

Question

数据表如下
字段：
姓名简码
姓名
住址窗体中有两个文本框如何在textbox1中输入lxl 回车后textbox1 lxl变为 李小龙  textbox2 显示住址地点

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       
       Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db21.mdb;Persist Security Info=False"
       Adodc1.CommandType = adCmdText
       Adodc1.RecordSource = "select * from 表1 where 姓名简码='" & Trim(Text1) & "'"
       Adodc1.Refresh
       Text1 = "": Text2 = ""
       Do While Not Adodc1.Recordset.EOF '考虑简码有重复的
          Text1 = Text1 & " " & Adodc1.Recordset.Fields(1)
          Text2 = Text2 & " " & Adodc1.Recordset.Fields(2)
          Adodc1.Recordset.MoveNext
       Loop
    End If
       
End Sub

Answer 2

还有问题·
数据表 
字段： 
姓名简码 
姓名 
住址 窗体中有两个文本框 
如何在textbox1中输入lxl 回车后  textbox2 显示住址地点
如何循环添加住址到 textbox2中  ？
每条新住址都靠左排列   加& VbCrLF & _就行了吗？不好意思我是菜鸟

Answer 3

上面已经正解。修改这里就可以了
Text2 = Text2 & " " & Adodc1.Recordset.Fields(2) + Chr(13)