主题：[求助]文本框数据填充(代码)

按照狐表示例做了自定义用户管理

  在用户登陆窗口加了个用户ID的文本框（数据源表也有加了用户ID的列）

  现在想在用户ID的文本框的值发生改变的情况下

  如何让用户名文本框自动填充对应的用户名，如果没找到就提示：“用户ID错误请重入！”

  代码不知怎么写？

楼上滴意思是要模糊填充文本框吗，这样做有漏洞呃

设置ID输入框的Valiating事件，假定ID是字符型：
 
Dim vl as String =e.Form.Controls("ID输入框").Value
If vl = "" Then
    MessageBox.show("请输入ID")
Else
    Dim cmd As New SQLCommand
   Dim dt As DataTable
   cmd.C
   cmd.CommandText = "SELECT Name From {Users} Where ID = '" & vl & "'"
   dt = cmd.ExecuteReader()
   if dt.DtaRows.Count = 0 Then
      MessageBox.show("用户ID不存在！","提示") 
   Else
      e.Form.Controls("用户名输入框").Value = dt.Datarows(0)("Name")
   End if
End if
 
大概如此，具体自行调整。