| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]窗口设置关联表鼠标焦点问题？谢谢帮助！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102642) |
| -- 作者：yeshuping5045 -- 发布时间：2017/6/23 11:22:00 -- [求助]窗口设置关联表鼠标焦点问题？谢谢帮助！ 设计窗口有2张关联表，客户和客户联系人，窗口增加一个命令按钮：单击新增加新的客户联系人，想要增加一行后把鼠标放到联系人姓名单元格里面，想要请教这个功能如何实现？谢谢各位大侠！谢谢有点色老师经常指点！ 程序如下： Dim r As Row = Tables("往来方联系人_联系人表").AddNew() \'增加一个新的客户联系人 If CurrentTable.Name = "往来方联系人_客户表" Then \'如果当前表客户 Dim u As Row = Tables("往来方联系人_客户表").Current \'当前表客户存在 If u IsNot Nothing Then r("往来方客户") = u("客户名称") \'客户新增联系人对应的客户名称是当前客户的名称 End If End If Forms("往来方联系人").Open() r.Save() \'还需要鼠标回到("往来方联系人_联系人表")中的新增行的联系人姓名列中
|
| -- 作者：有点蓝 -- 发布时间：2017/6/23 12:15:00 -- 参考：http://www.foxtable.com/webhelp/scr/0550.htm |