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

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

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

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

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

别人的例子我测试没有问题。上传你的实例说明

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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编辑过]

主题：[求助]测试周历，提示索引超出范围