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


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

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

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
(2017.10.11更新请手动修改BUG)逛逛老师的事务日历,月历添加新功能周历,免费送给大家  发帖心情 Post By:2017/6/5 10:20:00 [显示全部帖子]


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


请大家注意我发现的BUG麻烦各位朋友自己手动修改,分享的程序是有BUG的.我在实际使用过程中碰到的的BUG 都会给大家更新的
目前发现的BUG为3个.






逛逛老师的日历,很不错的,我已经融合到我们公司的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 这里是代码修改的部分(如果不添加此代码, 你查看自己的事务日历永远只有10条记录,5000代表可加载5000条记录)

        事务主表_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/31 13:10:31编辑过]

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/6 13:35:00 [显示全部帖子]

这个功能 是可以实现的,您可以试下完善

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/6 13:53:00 [显示全部帖子]

这个功能 是可以实现的,您可以试下完善

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/7 8:38:00 [显示全部帖子]

我已经融入到 我自己的 ERP了有兴趣可以联系我

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/9/19 13:56:00 [显示全部帖子]

好的更新了顶上去

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/9/19 16:47:00 [显示全部帖子]

以下是引用zhangning在2017/7/17 14:21:00的发言:
很好,正需要,但是想要将日期后边的“测试咯”去掉,要从哪里去呢?
全局代码,  你查找测试咯  就找到代码的位置了


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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/10/11 9:45:00 [显示全部帖子]

又更新了,顶上去

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/10/12 14:29:00 [显示全部帖子]

又更新了,顶上去

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


加好友 发短信
等级:童狐 帖子:291 积分:2505 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/10/21 17:21:00 [显示全部帖子]

顶上去

 回到顶部