设计窗口有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()
'还需要鼠标回到("往来方联系人_联系人表")中的新增行的联系人姓名列中