- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 设置考勤窗口，审核按键，出现了不能设置列储存 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87563)
-- 发布时间：2016/7/13 17:13:00
-- 设置考勤窗口，审核按键，出现了不能设置列储存
如图：是我做的考勤审核表，拟实现功能：
1、人力资源每月发出各部门的考勤统计及记录，是做一个提醒各部门，还是能单独以每个部门发出去的？
2、各部门收到流程，在上面确认考勤，修改，由经理“审批”，副总“批准”，我设置了代码，但是出现了如图报错！
3、另外，我设置“审核”的代码
If User.Group = "经理" Then
Tables("考勤统计表").Current("审核") = UserName
Tables("考勤统计表").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
但是这里还有一个问题，如果是其A的 经理，选了B部门的考勤做了修改，这个怎么设置权限呢？
此主题相关图片如下：审核设置，违背识别为有效布尔值.png
此主题相关图片如下：审核设置，违背识别为有效布尔值.png-- 发布时间：2016/7/13 18:29:00
--
1、筛选出各个部门的，再发送就行啊；
2、你的审核列，只能填写 true 或 false，如果要填名字，需要一列字符列；
3、看2
-- 发布时间：2016/7/14 14:50:00
-- 如何设置“审核”，筛选出来的整个部门
1、如图，我筛选出A部门，由部门A经理登录审核，审核按键能不能用代码一键把所有部门人的考勤都点上。
2、如果部门经理审核完之后，要怎么发送给副总审核。
此主题相关图片如下：111.png
此主题相关图片如下：111.png-- 发布时间：2016/7/14 14:54:00
--
1、
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
t.rows(i)("第一列") = user.name
Next
2、看完工作流一章
http://www.foxtable.com/webhelp/scr/2266.htm