- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于逛逛老师事务日历新开发思路求问 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108879)
-- 发布时间：2017/10/31 13:23:00
-- 关于逛逛老师事务日历新开发思路求问
谷歌日历中创建连续的事件,入下图红框, 逛逛老师的事务日历能实现么? 如果需要实现,我从哪个代码段下手,请版主大大给个详细的代码思路,
此主题相关图片如下：111.png
-- 发布时间：2017/10/31 17:12:00
--
换一种方式
| 下载信息 [文件大小：328.0 KB 下载次数：67] | |
 点击浏览该文件:编码绘制甘特图.table |
如果要在原来那里改，太麻烦，如果你能看懂原来的代码就改，否则不建议做，你控制不来。
-- 发布时间：2019/6/10 9:40:00
-- 刷新按钮
甜老师您好，以上实例对我非常实用，但是修改数据后需要重新打开窗口才会刷新，请问：假如做一个按钮，增加一段怎样的代码可以实现自动刷新，不需要重新打开窗口，数据就能更新，谢谢
-- 发布时间：2019/6/10 9:55:00
--
甜老师您好，以上实例对我非常实用，但是修改数据后需要重新打开窗口才会刷新，请问：假如做一个按钮，增加一段怎样的代码可以实现自动刷新，不需要重新打开窗口，数据就能更新，谢谢
执行代码
Functions.Execute("BuildGanttTable")
With Tables("窗口1_Table2").Grid
.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None \'不显示焦点框
.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never \'不高亮显示选定区
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell \'每次只显示一个单元格
End With
Dim tb As Table = Tables("窗口1_Table2")
tb.Grid.MergedRanges.clear
tb.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
Dim minD As Date = Tables("任务").Compute("min(开始日期)")
For i As Integer = tb.HeaderRows To tb.Rows.Count
Dim r As Row = Tables("任务").Rows(i-2)
Dim dt1 As Date = r("开始日期")
Dim dt2 As Date = r("结束日期")
Dim sp As TimeSpan = dt2 - dt1
Dim sp2 As TimeSpan = dt1 - minD
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(i, sp2.TotalDays+1, i, sp2.TotalDays+1+sp.TotalDays)
tb.Grid.MergedRanges.add(rng)
Next