Foxtable(狐表)用户栏目专家坐堂 → [讨论]如何在关联的子表中锁定字段


  共有3033人关注过本帖树形打印复制链接

主题:[讨论]如何在关联的子表中锁定字段

帅哥哟,离线,有人找我吗?
积水成渊
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
[讨论]如何在关联的子表中锁定字段  发帖心情 Post By:2017/2/28 10:22:00 [只看该作者]

现在有A,B两张表进行了关联,A表为主表,B表子表,这两张表在一个窗口中显示,当B的字段审核状态为已审核时,自动锁定B表的所有字段。求解决办法

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/2/28 10:25:00 [只看该作者]

我如下的代码,实现不了功能,求解决   


If e.DataRow("审核状态") = "已审核" Then

Dim cl As Col
cl = Tables("B").Cols("新值")
cl.AllowEdit = false
cl = Tables("B").Cols("审核状态")
cl.AllowEdit = false
 
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/28 10:32:00 [只看该作者]


If e.DataCol.name = "审核状态" Then
    For Each cdr As DataRow In e.DataRow.GetChildRows("B")
        cdr.Locked = (e.DataRow("审核状态") = "已审核")
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/2/28 11:12:00 [只看该作者]

提示错误,---------------------------
错误
---------------------------
编译错误:“DataCol”不是“RowColEventArgs”的成员。



错误代码:If e.DataCol.name = "单据状态" Then
---------------------------
确定   
---------------------------


 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/2/28 11:24:00 [只看该作者]

关联表没有datatable吧

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/28 11:38:00 [只看该作者]

代码写到A表DataColChanged事件

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/2/28 13:50:00 [只看该作者]

谢谢  ,已经解决

 回到顶部