| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 请教如何实现我这种情况 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60123) |
| -- 作者：seintfei -- 发布时间：2014/11/18 19:22:00 -- 请教如何实现我这种情况 A表有一个“项目号”的列，B表也有一个“项目号”的列，但不想做关联（因为B表和C表已经关联，B是主表，C是明细表） 想实现 鼠标右键增加一个快捷键“编辑”，当在A表某行点击“编辑”后，马上切换到B表的“相同项目号”对应行 只限于A表使用
[此贴子已经被作者于2014-11-18 19:23:36编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/11/18 19:29:00 -- 1、设置一个快捷菜单 http://www.foxtable.com/help/topics/1064.htm
2、编写事件弹出菜单 http://www.foxtable.com/help/topics/0662.htm
|
| -- 作者：有点甜 -- 发布时间：2014/11/18 19:30:00 -- 3、查找设置对应的行，参考 http://www.foxtable.com/help/topics/0553.htm
|
| -- 作者：seintfei -- 发布时间：2014/11/18 19:39:00 -- 麻烦老师写下代码，谢谢 |
| -- 作者：有点甜 -- 发布时间：2014/11/18 19:41:00 -- 你先设置好啊。代码就几句。看第三点 |
| -- 作者：seintfei -- 发布时间：2014/11/18 20:11:00 -- 菜单设置好了 |
| -- 作者：有点甜 -- 发布时间：2014/11/18 20:19:00 -- Dim idx As Integer = Tables("表B").FindRow("项目号 = \'" & Tables("表A").Current("项目号") & "\'") If idx > -1 Then Tables("表B").Position = idx MainTable = Tables("表B") End If |
| -- 作者：seintfei -- 发布时间：2014/11/18 20:26:00 -- 参照代码，未能对应到相同“项目号”的行 |
| -- 作者：有点甜 -- 发布时间：2014/11/18 20:36:00 -- 找不到，就是没有对应的项目号。
代码没有问题，不行请上传对应例子 |
| -- 作者：seintfei -- 发布时间：2014/11/18 20:58:00 -- 只能找到项目号的列，不能对应具体列的内容 例如：A表的项目号列有 SKK001 这个数值 点击菜单后，目前只能转到B表的项目号列，不能选中 SKK001 这个内容的行
|