- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现人员固定不变 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184304)
-- 发布时间：2022/12/2 0:04:00
-- 如何实现人员固定不变
蓝版，每日新增一个日志标题和日志内容的时候，如何实现当天的所有值班人员不变？我现在的是新增的时候，那些值班人员都要自己需要在另外的值班人员模块里新增，很是麻烦。
-- 发布时间：2022/12/2 8:28:00
--
方法1、http://www.foxtable.com/webhelp/topics/1792.htm
2、新增的时候取上一行的数据
dim pr as row = tables("xx").current
dim r as row = tables("xx").addnew
r("值班人员") = pr("值班人员")
-- 发布时间：2022/12/2 8:44:00
--
蓝版，我想要实现的是，当天的人员的排班是固定不变的，那就是说当天的事件，值班人员都是不变的，我想通过值班人员管理模块的方式来关联这记录表的，让记录表里的值班人员，都通过值班人员管理模块来实现，就是说事先录入了当天值班的人员之后，这些固定的值班人员信息关联到记录表去，使得记录表的值班人员在当天的新增的事件中保持不变，怎么来实现呢？
[此贴子已经被作者于2022/12/2 8:46:29编辑过]
-- 发布时间：2022/12/2 8:54:00
--
没看懂，请上传实例说明
-- 发布时间：2022/12/2 9:21:00
--
这么说吧，我有两张表，记录表和值班人员表，记录表的顶端字段有日期、值班人员信息，当天的值班人员信息是固定不变的，这些信息是绑定到值班人员表的，然后通过值班人员表来管理每天上班人员的名单，现在我的问题就是怎么样才能在当天新增记录表的时候，这些值班人员信息不会变。
-- 发布时间：2022/12/2 9:35:00
--
方法和2楼第二种方法类似呀，新增的时候，把值班人员表对应的数据填入新增行不就行了
-- 发布时间：2022/12/2 10:11:00
--
为啥Dim r1,r2 As Row = Tables("日志内容").addnew会提示编译错误？
[此贴子已经被作者于2022/12/2 10:11:22编辑过]
-- 发布时间：2022/12/2 10:13:00
--
赋值变量必须分开处理
Dim r2 As Row = Tables("日志内容").addnew
-- 发布时间：2022/12/2 10:17:00
--
要是这样的话那就多出好几个空白行了，违背了我的想法了呀。我是想着有5个值班人员，那就定义5个变量，没想到同时增加了5个空白行了，蓝版，要怎么修改呢？只增加一行就行了啊。
Dim pr1 As Row = Tables("日志内容").current
Dim pr2 As Row = Tables("日志内容").current
Dim pr3 As Row = Tables("日志内容").current
Dim pr4 As Row = Tables("日志内容").current
Dim pr5 As Row = Tables("日志内容").current
Dim r1 As Row = Tables("日志内容").addnew
Dim r2 As Row = Tables("日志内容").addnew
Dim r3 As Row = Tables("日志内容").addnew
Dim r4 As Row = Tables("日志内容").addnew
Dim r5 As Row = Tables("日志内容").addnew
r1("值班领导") = pr1("值班领导")
r2("值班主任") = pr2("值班主任")
r3("早班") = pr3("早班")
r4("中班") = pr4("中班")
r5("晚班") = pr5("晚班")
[此贴子已经被作者于2022/12/2 10:17:45编辑过]
-- 发布时间：2022/12/2 10:20:00
--
那就增加一行就行了啊，搞那么多变量干撒啊
Dim pr1 As Row = Tables("日志内容").current
Dim r1 As Row = Tables("日志内容").addnew
r1("值班领导") = pr1("值班领导")
r1("值班主任") = pr1("值班主任")