Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能否实现这样的快速录入效果？


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

主题：能否实现这样的快速录入效果？
美女呀，离线，留言给我吧！
zhangning
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		能否实现这样的快速录入效果？  发帖心情 Post By：2016/8/10 17:35:00 [显示全部帖子]

有一个表“人员基本资料”，有姓名列和在职（逻辑列）和配属部门列
还有一个表“出勤相关”，有部门列，当事人列

需要在“出勤相关”表中记录每人每天的出勤情况，每人每天为一行，

能不能先算出各部门先有哪些人在职，如大型现有张三、李四、王五，三人在职，
我在“出型相关”表中，第一次选大型的时候，自动插入3行，并当事人列中自动输入了
张三、李四、王五的姓名，

请问老师，这样的功能能否实现，如能，请老师帮写写代码，谢谢！
[此贴子已经被作者于2016/8/10 17:35:48编辑过]
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 8:23:00 [显示全部帖子]

谢谢老师，如果我要加上如果表“人员基本资料”表中的“在职”列选中，则填充，否则，则不填充
请老师帮谢谢代码呗，不会写，跟老师学学
另外，这些命令代码  写入哪里呢
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 9:24:00 [显示全部帖子]

谢谢老师，填充上数据了，
填充上的姓名不是按照部门进行排列的，
如何才能让同一部门的放在一起（排序）呢？
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 9:48:00 [显示全部帖子]

谢谢老师，解决了，
如果我想加上权限，比如在用户管理里规定好了 用户角色 是“录入”，
如何设定权限，让只有本部门的录入人员，才能填充本部门的人员姓名，别人填充不了，
也只能填充本部门的姓名，填充不了其他部门的。
请老师帮谢谢代码呗
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 9:57:00 [显示全部帖子]

如果想，如果填充了姓名，就在填充姓名时，直接在本行的“日期”列，写入 今天的日期，这样如何写代码？

 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 11:12:00 [显示全部帖子]

太棒了，一下子就搞定了，非常感谢
老师，如在 dr2("日期") = Date.today
的下面加上  “申请日期“ 等于 昨天的日期，怎么写来，我见到过帮助，但找不着了，老师给各地址呗
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/8/11 13:11:00 [显示全部帖子]





想加入  如果部门列的内容是        管理课 或  技术课  或  品管课  或   组装课   或   制造课-车床

就在“白夜”列中写入   白班，否则，则显示   夜班，

以下代码 粗体请帮看看。

Dim Cols1() As String = {"配属部门","姓名"}
Dim Cols2() As String = {"部门","当事人"}
For Each dr1 As DataRow In DataTables("人员基本资料").Select("[加班] = true and 配属部门 = '" &  

user.Group & "'", "配属部门")
    Dim dr2 As DataRow = DataTables("出勤相关").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    dr2("日期") = Date.today
    dr2("申请日期") = Date.today.AddDays(-1)
    if e.datarow("部门") = {"管理课","技术课","品管课","组装课","制造课-车床"}
      dr2("白夜") = "白班"
    end if
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询