[求助]测试周历，提示索引超出范围 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]测试周历，提示索引超出范围

共有3520人关注过本帖树形打印复制链接主题：[求助]测试周历，提示索引超出范围

李小胖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00

Post By：2017/9/18 15:45:00 [显示全部帖子]

呵呵 ,今天我自己也碰到这问题了,论坛一收就解决啦谢谢蓝版主,

李小胖

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00

Post By：2017/9/18 15:49:00 [显示全部帖子]

以下是引用有点蓝在2017/9/16 17:34:00的发言：
没有看透他的用法，全局代码-》事务日程这个地方改改：

Public Sub 事务标签布局()

……

Dim n_行数 As Integer

Dim Left, Top, Width, Height As Integer

'循环字典

Dim a As 事务标签

For Each str In dc.Keys

d = (CDate(str) - _表首).Days '和表首的日期差

r = (d \ 8) * 2 + 3 '取整数(行),跨行

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

If dc(str).Count > 4 Then

n_行数 = 4

Else

n_行数 = dc(str).Count

End If

……

请问蓝版主, 这样修改的原因是什么能告诉下么?

[此贴子已经被作者于2017/9/16 17:34:29编辑过]

[此贴子已经被作者于2017/9/18 15:52:41编辑过]

李小胖

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00

Post By：2017/9/19 10:19:00 [显示全部帖子]

以下是引用有点甜在2017/9/18 17:15:00的发言：

4楼的代码有问题，改成下面的。

    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/19 10:56:27编辑过]