[浏览完整版]
标题：(2017.10.11更新请手动修改BUG)逛逛老师的事务日历，月历添加新功能周历，免费送给大家
1楼
李小胖 发表于：2017/6/5 10:20:00以下内容只有回复后才可以浏览
请大家注意我发现的BUG麻烦各位朋友自己手动修改,分享的程序是有BUG的.我在实际使用过程中碰到的的BUG 都会给大家更新的
目前发现的BUG为3个.
逛逛老师的日历，很不错的，我已经融合到我们公司的ERP中去了，另外添加了周历转换功能，现在免费共享给大家 。逛逛老师已经在2014年 就停在更新了，我2017年更新一个周历功能，希望大家爱心接力，有更多人完善它更新它，
对事务日历感兴趣的朋友 可添加我 QQ讨论 用途新开发的思路 41二九7零1零4
PS :周历开个(周历开关)
2017.10.11 更新一个ＢＵＧ 请自己手动修改 在全局代码-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楼
有点色 发表于：2017/6/5 10:58:00 谢谢楼主分享。
3楼
binabc2004 发表于：2017/6/5 13:58:00谢谢楼主
4楼
tennis 发表于：2017/6/5 14:12:00DING
5楼
bohe 发表于：2017/6/5 14:20:00谢谢
6楼
wzzhf 发表于：2017/6/5 14:22:00感谢分享！
7楼
laipiwen 发表于：2017/6/5 14:32:00谢谢分享
8楼
gryy 发表于：2017/6/5 14:41:00
9楼
mayazql 发表于：2017/6/5 15:04:00真不错
10楼
zhy400137 发表于：2017/6/5 15:25:00学习一下，谢谢分享！