| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]解锁 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106345) |
| -- 作者：苏州老街 -- 发布时间：2017/9/7 9:14:00 -- [求助]解锁 老师好，我要在反审核时同时把该订单下的行多解锁。 If Tables("出库.出库明细") .Rows.count = 0 Then MessageBox.Show("没有可反审项!") Return End If If User.IsRole ("撤消审核") Then Tables("出库").Current("审核人") = Nothing Tables("出库").Current("审核日期") = Nothing Tables("出库").Current.Save() Else MessageBox.show("你无取消审核权限!") End If
|
| -- 作者：有点甜 -- 发布时间：2017/9/7 9:36:00 -- If Tables("出库.出库明细") .Rows.count = 0 Then
|
| -- 作者：苏州老街 -- 发布时间：2017/9/7 9:49:00 -- 老师，下面代码不理解。 For Each r As Row In Tables("出库.出库明细").rows
r("xxx") = Nothing Next |
| -- 作者：有点甜 -- 发布时间：2017/9/7 10:28:00 -- 没看懂你的问题，上传实例说明。 |
| -- 作者：苏州老街 -- 发布时间：2017/9/7 12:59:00 -- 以下是引用苏州老街在2017/9/7 9:14:00的发言：
老师好，我要在反审核时同时把该订单下的行多解锁。 If Tables("出库.出库明细") .Rows.count = 0 Then MessageBox.Show("没有可反审项!") Return End If If User.IsRole ("撤消审核") Then Tables("出库").Current("审核人") = Nothing Tables("出库").Current("审核日期") = Nothing Tables("出库").Current.Save() Else MessageBox.show("你无取消审核权限!") End If 老师，这是取消审核按钮，在取消窗口当前表的审核时同时能解锁窗口的当前表。
|
| -- 作者：有点甜 -- 发布时间：2017/9/7 14:32:00 -- Tables("出库").Current.Locked = False |
| -- 作者：苏州老街 -- 发布时间：2017/9/7 15:46:00 -- 以下是引用有点甜在2017/9/7 14:32:00的发言： Tables("出库").Current.Locked = False 老师，只解锁一行，我是要解锁窗口当前表（出库.出库明细）
|
| -- 作者：有点甜 -- 发布时间：2017/9/7 16:18:00 -- For Each r As Row In Tables("出库.出库明细").rows r.locked = False Next |
| -- 作者：苏州老街 -- 发布时间：2017/9/8 9:18:00 -- 谢谢老师 |
| -- 作者：江南小镇 -- 发布时间：2017/10/11 9:05:00 -- 老师早上好，我想用一个按钮既能锁定也能解锁。（窗口副本表） |