| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]审核可以改成批量吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92156) |
| -- 作者：77611471 -- 发布时间：2016/10/27 15:18:00 -- [求助]审核可以改成批量吗？ If User.Group = "主管" Then Tables("表A").Current("审核") = UserName Tables("表A").Current("审核日期") = Date.Today() Tables("表A").Current.Save() Else MessageBox.show("你无审核权限!") End If 这个审核只能审核当前所在的行，能不能改成审核选中的行呢？
|
| -- 作者：有点蓝 -- 发布时间：2016/10/27 15:44:00 -- 循环所有选中的行 |
| -- 作者：77611471 -- 发布时间：2016/10/27 16:05:00 -- Tables("表A").ShowCheckBox = Position |
| -- 作者：有点蓝 -- 发布时间：2016/10/27 16:13:00 -- 请仔细阅读帮助里的用法 |
| -- 作者：affixed -- 发布时间：2016/10/27 16:57:00 -- 以下内容为程序代码: 1 For Each r As Row In CurrentTable.GetCheckedRows 2 If User.Group = "主管" Then 3 Tables("表A").Current("审核") = UserName 4 Tables("表A").Current("审核日期") = Date.Today() 5 Tables("表A").Current.Save() 6 Else 7 MessageBox.show("你无审核权限!") 8 End If 9 Next |
| -- 作者：77611471 -- 发布时间：2016/10/28 9:25:00 -- Tables("BOM表").ShowCheckBox = True If User.Group = "录入" Then For Each r As Row In Tables("BOM表").GetCheckedRows r("审核") = User.Name r("审核日期") = Date.Today() r.Save() Next Else MessageBox.show("你无审核权限!") End If 我用了这个
|