- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何自动添加姓名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171094)
-- 发布时间：2021/8/18 0:25:00
-- [求助]如何自动添加姓名
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
电话记录表中新增一行，当电话号码输入后，如果电话号码与客户资料表中电话号码相同，姓名列怎么自动增加相同的姓名？
如果电话号码不同，可以手动填写姓名？
-- 发布时间：2021/8/18 8:12:00
--
DataColChanged事件
If e.DataCol.Name = "客户电话" Then
Dim dr As DataRow = DataTables("客户资料").find("电话号码=\'" & e.NewValue & "\'")
If dr Is Nothing Then Return
e.DataRow("客户姓名") = dr("姓名")
End If