以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  事务日历 改进 在2016中出现下列错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77219)
--  作者：hjcslr
--  发布时间：2015/11/12 23:26:00
--  事务日历 改进 在2016中出现下列错误
.NET Framework 版本：2.0.50727.5483
Foxtable 版本：2015.11.11.1
错误所在事件：窗口,事务管理,an_减月,Click
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index

在点上一月时出现
[此贴子已经被作者于2015/11/12 23:27:06编辑过]
--  作者：Hyphen
--  发布时间：2015/11/13 8:35:00
--  

贴出点上一月代码
--  作者：大红袍
--  发布时间：2015/11/13 9:12:00
--  

改一下

 

    Private Sub 表格计算()
        _月首 = CDate(Format(_date, "yyyy-MM-" & "01"))                         \'获取当月的第一天日期
        Dim i_月首星期 As Integer = _月首.DayOfWeek                             \'获取当月第一天是星期几
        _表首 = _月首.AddDays(-i_月首星期 + 1)                                  \'获取表格第一天的日期,加一是因为从星期一开始
        Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month)   \'获取当月的天数
        _日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)                 \'减一是因为从星期一开始
        _表尾 = _表首.AddDays(_日期行数 * 7 - 1)
        _表格行数 = _日期行数 * 2 + 2                                           \'表格的行数
        Me.Rows.Count = _表格行数
        表格赋值()
    End Sub