以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于逛逛老师事务日历新开发思路求问  (http://foxtable.net/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

 

如果要在原来那里改，太麻烦，如果你能看懂原来的代码就改，否则不建议做，你控制不来。
--  作者：yaojun
--  发布时间：2019/6/10 9:40:00
--  刷新按钮

甜老师您好，以上实例对我非常实用，但是修改数据后需要重新打开窗口才会刷新，请问：假如做一个按钮，增加一段怎样的代码可以实现自动刷新，不需要重新打开窗口，数据就能更新，谢谢
--  作者：有点甜
--  发布时间：2019/6/10 9:55:00
--  
以下是引用yaojun在2019/6/10 9:40: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