专家坐堂-(2017.10.11更新请手动修改BUG)逛逛老师的事务日历，月历添加新功能周历，免费送给大家Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

请大家注意我发现的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编辑过]