Foxtable(狐表)用户栏目专家坐堂 → (2017.10.11更新)逛逛老师的事务日历,月历添加新功能周历,免费送给大家


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

主题:(2017.10.11更新)逛逛老师的事务日历,月历添加新功能周历,免费送给大家

帅哥哟,离线,有人找我吗?
李小胖
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:216 积分:1896 威望:0 精华:0 注册:2017/1/8 15:53:00
(2017.10.11更新)逛逛老师的事务日历,月历添加新功能周历,免费送给大家  发帖心情 Post By:2017/6/5 10:20:00 [只看该作者]


以下内容只有回复后才可以浏览



逛逛老师的日历,很不错的,我已经融合到我们公司的ERP中去了,另外添加了周历转换功能,现在免费共享给大家 。逛逛老师已经在2014年 就停在更新了,小胖我2017年更新一个周历功能,希望大家爱心接力,有更多人完善它更新它,
对事务日历感兴趣的朋友  可添加我 QQ讨论 用途新开发的思路   41二九7零1零4
PS :周历开个(周历开关)

2017.10.11 更新一个BUG 请自己手动修改  在全局代码-zxb自定义事务日历这个地方改改
        Filter1 = Filter
        事务主表_dt.LoadFilter = Filter
        事务主表_dt.LoadTop = "5000" '  → → → → → → → → → → → →  2017.10.11 这里是代码修改的部分(其中的5000是我自己设置的加载5000行,更具你自己的实际情况来如果不设置默认只会加载10行)

        事务主表_dt.LoadOrder = n事务时间  '时间排序
        事务主表_dt.Load()

2017.9.19 更新一个BUG  请自己手动修改  在全局代码-zxb自定义事务日历这个地方改改
  _表尾 = _表首.AddDays(_日期行数 * 7)  修改为   _表尾 = _表首.AddDays((_日期行数 * 7)-1)
2017.9.18  更新一个BUG 请自己手动修改  在全局代码-zxb自定义事务日历这个地方改改
Public Sub 事务标签布局()
……
Dim n_行数 As Integer
Dim Left, Top, Width, Height As Integer
'
'循环字典
'
Dim a As 事务标签
For Each str In dc.Keys
' →→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→2017.9.18 这里是代码修改的部分开始
        d = (CDate(str) - _表首).Days   '和表首的日期差

    
    If  周历开个 =  0 Then '这里的周历开个其实是周历开关的意思, 我(李小胖)后期已经修改了
        r = (d \ 7) * 2 + 3             '取整数(行),跨行
    Else
        If d >= 7 Then
            Continue For
        Else
            r =   3
        End If
    End If

    c = (d Mod 7) + 1               '取列位置

' →→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→→2017.9.18 这里是代码修改的部结束


此主题相关图片如下:月历.png
按此在新窗口浏览图片

此主题相关图片如下:周历.png
按此在新窗口浏览图片
[此贴子已经被作者于2017/10/11 9:41:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13595 积分:68250 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/5 10:58:00 [只看该作者]

 谢谢楼主分享。

 回到顶部
帅哥哟,离线,有人找我吗?
binabc2004
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1313 威望:0 精华:0 注册:2016/4/1 12:21:00
  发帖心情 Post By:2017/6/5 13:58:00 [只看该作者]

谢谢楼主

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1027 积分:7555 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2017/6/5 14:12:00 [只看该作者]

DING

 回到顶部
帅哥哟,离线,有人找我吗?
bohe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:730 积分:6068 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2017/6/5 14:20:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
wzzhf
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1094 威望:0 精华:0 注册:2014/5/4 21:02:00
  发帖心情 Post By:2017/6/5 14:22:00 [只看该作者]

感谢分享!

 回到顶部
帅哥哟,离线,有人找我吗?
laipiwen
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:89 积分:751 威望:0 精华:0 注册:2015/4/29 11:50:00
  发帖心情 Post By:2017/6/5 14:32:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
gryy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2627 威望:0 精华:0 注册:2013/4/9 19:12:00
  发帖心情 Post By:2017/6/5 14:41:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
mayazql
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:1551 威望:0 精华:0 注册:2012/10/29 8:32:00
  发帖心情 Post By:2017/6/5 15:04:00 [只看该作者]

真不错

 回到顶部
帅哥哟,离线,有人找我吗?
zhy400137
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:783 积分:5453 威望:0 精华:0 注册:2013/11/3 19:00:00
  发帖心情 Post By:2017/6/5 15:25:00 [只看该作者]

学习一下,谢谢分享!

 回到顶部
总数 85 1 2 3 4 5 6 7 8 9 下一页