Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现人员固定不变


  共有4599人关注过本帖树形打印复制链接

主题：如何实现人员固定不变
帅哥哟，离线，有人找我吗？
yolala
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		如何实现人员固定不变  发帖心情 Post By：2022/12/2 0:04:00 [显示全部帖子]

蓝版，每日新增一个日志标题和日志内容的时候，如何实现当天的所有值班人员不变？我现在的是新增的时候，那些值班人员都要自己需要在另外的值班人员模块里新增，很是麻烦。
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/12/2 8:44:00 [显示全部帖子]

蓝版，我想要实现的是，当天的人员的排班是固定不变的，那就是说当天的事件，值班人员都是不变的，我想通过值班人员管理模块的方式来关联这记录表的，让记录表里的值班人员，都通过值班人员管理模块来实现，就是说事先录入了当天值班的人员之后，这些固定的值班人员信息关联到记录表去，使得记录表的值班人员在当天的新增的事件中保持不变，怎么来实现呢？
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/12/2 8:46:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/12/2 9:21:00 [显示全部帖子]

这么说吧，我有两张表，记录表和值班人员表，记录表的顶端字段有日期、值班人员信息，当天的值班人员信息是固定不变的，这些信息是绑定到值班人员表的，然后通过值班人员表来管理每天上班人员的名单，现在我的问题就是怎么样才能在当天新增记录表的时候，这些值班人员信息不会变。

 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/12/2 10:11:00 [显示全部帖子]

为啥Dim r1,r2 As Row = Tables("日志内容").addnew会提示编译错误？
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/12/2 10:11:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/12/2 11:40:00 [显示全部帖子]

蓝版，我这两段代码，要怎么样调整，在点击【新增】按钮的时候，不会增加两行？如果把第一段给注释掉，在我新增记录表的时候，会报错，提示：Object reference not set to an instance of an object.
With Tables("日志内容")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("日志内容").AddNew()        
    End If
End With


Dim pr As Row = Tables("日志内容").current
Dim r As Row = Tables("日志内容").addnew
r("值班领导") = pr("值班领导")
r("值班主任") = pr("值班主任")
r("早班") = pr("早班")
r("中班") = pr("中班")
r("晚班") = pr("晚班")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询