以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助输入编号自动得文字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99398)

--  作者:fishtseng
--  发布时间:2017/4/18 17:47:00
--  [求助]求助输入编号自动得文字
想请问各位大侠,如何能在客户编号上输入“04040”,则客户名称显示“赵则玲(体育商品)”,如何实现呢?在线等
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170418174330.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/4/18 18:06:00
--  
编码输入框TextChanged事件

Dim dr As DataRow = DataTables("员工").Find("客户编号=\'" & e.Sender.Text & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("TextBox客户名称").Text = dr(“客户名称”)
End If