以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文本框数据填充(代码)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25750)
--  作者：lsf5138
--  发布时间：2012/11/15 20:34:00
--  [求助]文本框数据填充(代码)

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

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

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

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

  代码不知怎么写？

[此贴子已经被作者于2012-11-15 21:04:43编辑过]
--  作者：sgs
--  发布时间：2012/11/16 7:56:00
--  
楼上滴意思是要模糊填充文本框吗，这样做有漏洞呃
--  作者：狐狸爸爸
--  发布时间：2012/11/16 8:46:00
--  
设置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
 
大概如此，具体自行调整。