[求助]如何自动添加姓名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何自动添加姓名

共有2839人关注过本帖树形打印复制链接主题：[求助]如何自动添加姓名

丨Asuka丨

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：50 积分：538 威望：0 精华：0 注册：2020/7/19 23:15:00

[求助]如何自动添加姓名 发帖心情

Post By：2021/8/18 0:25:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.table

电话记录表中新增一行，当电话号码输入后，如果电话号码与客户资料表中电话号码相同，姓名列怎么自动增加相同的姓名？

如果电话号码不同，可以手动填写姓名？

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4790 积分：34774 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：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

主题：[求助]如何自动添加姓名