我设计了一个待办事项表,想把与登录用户相关的各种表内容摘要加载到另一“待办事项”表,但无法判断已经加载过的内容,所以导致每次登录重复加载,请求各位大侠帮忙。代码如下:
With Tables("休假管理")
.Filter = "[审核人] = '" & User.name & "'And [状态栏] = '已提交'"
For Each n As Row In Tables("休假管理").Rows
Tables("待办事项").InsertNew()
Tables("待办事项").Current("待办事项") = n("姓名") & "请假审核"
Tables("待办事项").Position = Tables("待办事项").Position - 1
Next
.Filter = "[批准人] = '" & User.name & "'And [状态栏] = '已审核'"
For Each n As Row In Tables("休假管理").Rows
Tables("待办事项").InsertNew()
Tables("待办事项").Current("待办事项") = n("姓名") & "请假审批"
Tables("待办事项").Position = Tables("待办事项").Position - 1
Next
.Filter = "[人资管理] = '" & User.name & "'And [状态栏] = '已批准'"
For Each n As Row In Tables("休假管理").Rows
Tables("待办事项").InsertNew()
Tables("待办事项").Current("待办事项") = n("姓名") & "请假管理"
Tables("待办事项").Position = Tables("待办事项").Position - 1
Next
End With
此主题相关图片如下:11.png
还有个问题,如果我双击“待办事项”表,如何把与此相关的原表内容加载到我的编辑处理窗口?
此主题相关图片如下:12.png