If e.Form.Controls("TextBox3").Text <> "" Then
Dim tx As WinForm.TextBox = e.Sender
If tx.Text.Length = 4 Then
Dim id As String = e.Form.Controls("TextBox3").Text
Dim pr As DataRow = DataTables("用户信息").Find("账号 = '"& id &"'")
If pr IsNot Nothing Then
e.Form.Controls("TextBox1").Value = pr("姓名")
e.Form.Controls("TextBox2").Value = pr("部门")
e.Form.Controls("TextBox4").Select()
Else
e.Form.Controls("TextBox3").Value = “”
e.Form.Controls("TextBox3").Select()
PopMessage("对应的用户不存在!","提示",PopIconEnum.Infomation,5)
Return
End If
End If
End If
加好友 
发短信
Post By：2016/4/13 11:00:00 [显示全部帖子]
