Foxtable(狐表)用户栏目专家坐堂 → 锁定订单明细


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

主题:锁定订单明细

帅哥哟,离线,有人找我吗?
实话实说
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
锁定订单明细  发帖心情 Post By:2017/8/1 19:41:00 [显示全部帖子]

以下是帮助的代码,我的需求是:订单表有一排产的逻辑,勾选排产,不锁定订单表,只锁定订单明细表,字体颜色变灰,取消勾选,解锁。字体颜色恢复。订单表与订单明细表通过订单单号关联。代码如何修改?

For Each dr As DataRow In e.DataRow.GetChildRows("订单明细")

    dr.Locked = e.DataRow.Locked

Next

[此贴子已经被作者于2017/8/1 19:41:31编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/1 19:59:00 [显示全部帖子]

只有订单表有排产列,订单明细表没有,我的需求是不锁订单表,只锁订单明细表,并且字体颜色变灰。

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/1 21:10:00 [显示全部帖子]

取消锁定呢?

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/5 8:47:00 [显示全部帖子]

在4楼的代码中,能锁定明细表的关联行,如何控制关联行不能新增?

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/5 9:43:00 [显示全部帖子]

以下是关联表的【新增】按钮,如何根据父表的排产是否勾选来确定是否能新增行。

If Tables("销售订单.销售明细").AllowEdit = True Then
    Tables("销售订单.销售明细").AddNew() '指定的表
Else
    e.Cancel = True '取消默认动作
End If


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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/10 18:42:00 [显示全部帖子]

4楼代码,我不想锁定行,值想锁定当前行(除了【入仓】列)的所有列

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/10 19:37:00 [显示全部帖子]

4楼代码,勾选销售订单的【审核】列,锁定订单明细关联表中除了【入仓】列的所有列。求帮助。

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/11 7:55:00 [显示全部帖子]

甜老师辛苦。以下代码是是锁定行和解锁行,我的需求是可以取消"第五列" 勾选,但不解锁行,不允许编辑其他列。

If e.Col.name = "第五列" Then
    If e.Row.Locked Then
        e.Row("第五列") = False
    End If
    e.Row.Locked = e.Row("第五列")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/11 9:17:00 [显示全部帖子]

勾选不了

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/8/11 9:19:00 [显示全部帖子]

搞定了,谢谢

 回到顶部
总数 11 1 2 下一页