主题：关于逛逛老师事务日历新开发思路求问

谷歌日历中创建连续的事件,入下图红框,   逛逛老师的事务日历能实现么? 如果需要实现,我从哪个代码段下手,请版主大大给个详细的代码思路,  

换一种方式

 

下载信息  [文件大小：328.0 KB  下载次数：67]

点击浏览该文件:编码绘制甘特图.table

 

如果要在原来那里改，太麻烦，如果你能看懂原来的代码就改，否则不建议做，你控制不来。

甜老师您好，以上实例对我非常实用，但是修改数据后需要重新打开窗口才会刷新，请问：假如做一个按钮，增加一段怎样的代码可以实现自动刷新，不需要重新打开窗口，数据就能更新，谢谢

 

执行代码

 

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