[求助]锁定关联表中的关联记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]锁定关联表中的关联记录

共有1719人关注过本帖树形打印复制链接主题：[求助]锁定关联表中的关联记录

njzwm

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

加好友

发短信

等级：小狐帖子：310 积分：2684 威望：0 精华：0 注册：2015/8/22 20:07:00

[求助]锁定关联表中的关联记录 发帖心情

Post By：2018/6/19 13:36:00 [只看该作者]

表A 表B，关联表表A.表B

设计目的：当表A以及相应的关联表的记录完成后，点击按钮，使得关联表中的相应记录（不是全部记录）锁定，编写了如下程序，但是执行后发现它只锁定了关联表的当前一个记录，并没有锁定关联表中所有的关联记录，为什么，求教大神，谢谢！

Forms("表A窗口").Controls("关联窗口表B").Select

With CurrentTable

For i As Integer = .TopPosition To .BottomPosition

.Rows(i).Locked = True

End With

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/19 15:13:00 [只看该作者]

With Tables("表A.表B")

For i As Integer = 0 To .rows.count-1

.Rows(i).Locked = True

End With

njzwm

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

加好友

发短信

等级：小狐帖子：310 积分：2684 威望：0 精华：0 注册：2015/8/22 20:07:00

Post By：2018/6/19 16:34:00 [只看该作者]

问题完满解决，谢谢！

[此贴子已经被作者于2018/6/19 18:07:42编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/6/19 17:51:00 [只看该作者]

Select Case e.DataCol.name

Case "项目完成"

DataTables("表B").ReplaceFor("_locked",e.newvalue,"关联列='" & e.DataRow("关联列") & "'")

DataTables("表C").ReplaceFor("_locked",e.newvalue,"关联列='" & e.DataRow("关联列") & "'")

End Select

关联列改为实际的关联列名称

njzwm

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

加好友

发短信

等级：小狐帖子：310 积分：2684 威望：0 精华：0 注册：2015/8/22 20:07:00

谢谢！完美！ 发帖心情

Post By：2018/6/19 18:25:00 [只看该作者]

太谢谢啦，您这个解决方案更简洁，而且同时也解决了“项目完成”状态更改时，相应的表格的lock状态也自动改变成unlock的状态了，非常满意！谢谢！

下一主题 >> << 上一主题

主题：[求助]锁定关联表中的关联记录