- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]加载表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25838)
-- 发布时间：2012/11/18 11:08:00
-- [求助]加载表的问题
我设计了一个待办事项表，想把与登录用户相关的各种表内容摘要加载到另一“待办事项”表，但无法判断已经加载过的内容，所以导致每次登录重复加载，请求各位大侠帮忙。代码如下：
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
-- 发布时间：2012/11/19 17:14:00
--
在插入新行之前，先比较一下是否已经存在这一条数据。最好的做法，就是加一列，用来存储 休假管理表 的_Identify值。
第二个问题，比较好解决，如果有_Identify的话，去查询对应的行，就行了。
------------------------------------
又或者，你这个表完全可以用子表来做，都能弄成表达式引用就行。