主题：甘特图使用

窗口AfterLoad事件

 

Dim t = e.Form.controls("Table9").Table

For i As Integer = 0 To t.DataTable.basetable.rows.count-1
    Dim dr = t.DataTable.basetable.rows(i)
    Dim r As Row  = Tables("计划表窗口_Table4").Rows(i)
    Dim fdr As DataRow = DataTables("事件记录").find("事件日期<=#" & Date.Today.AddDays(-30) & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "' and 处理情况='未处理'")
    If fdr IsNot Nothing Then
        dr.RowError = fdr("事件日期")
    End If
Next

不知道是不是我其他地方出了问题，没有显示出结果呢，能帮忙看看吗？麻烦你了，还有就是绑定窗口1甘特图时间，打开后还是没有绑定，麻烦你了，感谢 感谢

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

点击浏览该文件:甘特图使用 (1) (1).table

完美，还是你想得周全得多，感谢 感谢，窗口那个时间可以是显示的甘特图选择的时间吗？比如先点击甘特图，然后点击上面按钮，打开后时间就是甘特图选择的时间， 能帮忙在点击计划表窗口_Table4的时候不联动吗？ 谢谢 谢谢 。

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

点击浏览该文件:甘特图使用 (1) (1).table

为什么把图表的程序复制到另外一个窗口就不能用了呢，在第一个窗口设计了个按钮，点击显示窗口，窗口的功能也是一样的，窗口的代码我都改过来了，只是表格的代码和内部程序不知道该怎么办。这个可以实现吗？感谢 感谢 ！

不同的表，表名都不一样。请全部修改。

 

计划表窗口_Table9、计划表窗口_Table4 分别改成你新窗口的表名。

好的，好的，我马上改，我现在把整个代码复制了一篇，还是有点问题，能帮忙看看吗？

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

点击浏览该文件:加大显示图表.table

谢谢 谢谢，我学习了代码，表事件和内部代码可以不做改动吗？复制之前的改动呀！感谢 感谢