Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，考勤规则1月份核定，6月份修改，如何考勤时输入3月份的时间，自动调用6月份未变更前的考勤规则。


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

主题：求助，考勤规则1月份核定，6月份修改，如何考勤时输入3月份的时间，自动调用6月份未变更前的考勤规则。
帅哥哟，离线，有人找我吗？
xtlwp
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：515 威望：0 精华：0 注册：2011/4/19 15:47:00 		求助，考勤规则1月份核定，6月份修改，如何考勤时输入3月份的时间，自动调用6月份未变更前的考勤规则。  发帖心情 Post By：2021/6/28 14:54:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


如何实现，再考勤表中日期未3月份日期，自动调用1月份后，6月份前的考勤规则？
我用的事这个代码，录入时数据不准
Select Case e.DataCol.Name
    Case "年份","月份","姓名"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("年份") OrElse dr.IsNull("月份")  OrElse dr.IsNull("姓名")  Then
            dr("考勤规则") = Nothing
        Else
            Dim filter As String
            filter = "姓名 = '" & dr("姓名") & "' and 年份 > = '" & dr("年份") & "' And 月份 > = '" & dr("月份") & "'"
            pr = DataTables("工资核定").Find(filter)
            If pr IsNot Nothing Then
                dr("考勤规则") = pr("考勤规则")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/28 15:16:00 [只看该作者]

不是很理解您的意思。这个？

filter = "姓名 = '" & dr("姓名") & "' and 年份 = '" & dr("年份") & "' And 月份 >= 1 and 月份 <= 6"
 回到顶部
帅哥哟，离线，有人找我吗？
xtlwp
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：515 威望：0 精华：0 注册：2011/4/19 15:47:00 		  发帖心情 Post By：2021/6/28 15:42:00 [只看该作者]

变更可能不只是1月份和6月份，可能还会变更，我想要输入的日期再两次变更之间的数据，例如1月份 6月份，9月份都有变更，输入8月份，考勤规则显示6月份的规则，输入10月份就显示9月份的考勤规则

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


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/28 15:56:00 [只看该作者]

            filter = "姓名 = '" & dr("姓名") & "' and 年份 = '" & dr("年份") & "' And 月份 <= '" & dr("月份") & "'"
            pr = DataTables("工资核定").Find(filter，“月份 desc”)
 回到顶部
帅哥哟，离线，有人找我吗？
xtlwp
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：515 威望：0 精华：0 注册：2011/4/19 15:47:00 		  发帖心情 Post By：2021/6/28 16:07:00 [只看该作者]

搞定，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05713 秒, 5 次数据查询