Foxtable(狐表)用户栏目专家坐堂 → (2017.10.11更新请手动修改BUG)逛逛老师的事务日历,月历添加新功能周历,免费送给大家


  共有80030人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点蓝
  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/7 15:47:00 [只看该作者]

更新一个疑似bug,具体我就不详细测试了

全局代码
Private Sub 表格计算()
_月首 = CDate(Format(_date, "yyyy-MM-01"))                         '获取当月的第一天日期
Dim i_月首星期 As Integer = _月首.DayOfWeek                             '获取当月第一天是星期几
If i_月首星期 = 0 Then i_月首星期 = 7 '如果1号是周日,计算时使用7,而不是0
If 周 <> -10000  Then
    _表首 = _月首.AddDays(-i_月首星期 + 1+ 周 * 7)
Else
    _表首 = _月首.AddDays(-i_月首星期 + 1)                                  '获取表格第一天的日期,加一是因为从星期一开始
End If
Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month)   '获取当月的天数
If  周历开个 =  0 Then
    _日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)
Else
    _日期行数 = 1 '减一是因为从星期一开始
End If

'_表尾 = _表首.AddDays(_日期行数 * 7)
_表尾 = _表首.AddDays((_日期行数 * 7)-1)  '2020.02.04修改
_表格行数 = _日期行数 * 2 + 2                                           '表格的行数
Me.Rows.Count = _表格行数
表格赋值()
End Sub

 回到顶部
帅哥哟,离线,有人找我吗?
cslz411
  152楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:459 威望:0 精华:0 注册:2012/10/28 21:36:00
学习,多谢,多谢!  发帖心情 Post By:2020/2/8 0:23:00 [只看该作者]

学习,多谢,多谢!

 回到顶部
帅哥哟,离线,有人找我吗?
hui986
  153楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:494 积分:3432 威望:0 精华:0 注册:2012/3/29 21:15:00
  发帖心情 Post By:2020/2/8 3:04:00 [只看该作者]

看看,学习一下,感谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
wei0769
  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1814 积分:19222 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2020/2/21 12:24:00 [只看该作者]

顶一下


 回到顶部
帅哥哟,离线,有人找我吗?
不懂
  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:197 威望:0 精华:0 注册:2019/12/4 16:59:00
  发帖心情 Post By:2020/2/25 23:49:00 [只看该作者]

很好,学习一下!

 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  156楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2701 积分:17993 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/3/8 15:24:00 [只看该作者]

666666  学习了

 回到顶部
帅哥哟,离线,有人找我吗?
happyuvv
  157楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:250 积分:2292 威望:0 精华:0 注册:2017/5/16 11:40:00
学习学习  发帖心情 Post By:2020/4/18 17:32:00 [只看该作者]

谢谢分享谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
飞云
  158楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:472 积分:5507 威望:0 精华:0 注册:2015/4/5 14:08:00
  发帖心情 Post By:2020/4/23 14:55:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
hanlingli111999
  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:1957 威望:0 精华:0 注册:2020/3/7 22:50:00
  发帖心情 Post By:2020/4/23 15:40:00 [只看该作者]

学习一下

 回到顶部
帅哥哟,离线,有人找我吗?
fyj0326
  160楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:405 积分:3645 威望:0 精华:0 注册:2009/12/12 17:04:00
  发帖心情 Post By:2020/5/16 10:49:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部