主题：甘特图使用

不知道为什么 在点击其他窗口其他按钮筛选其他表显示的时候 和点击 计划表窗口_Table4 的拉动条就会报错。一再找原因都找不到，实在是只有求助你了，感谢 感谢 

上传实例说明

在选择 本周，上一周，下一周还有拉动条就会出错，能帮忙看看吗？感谢 感谢 

例子没有上面的窗口

不好意思 刚才不知道为什么上传不上，然后我就压缩了一下，不好意思 

没看懂你给的例子，上传具体例子说明问题。

此主题相关图片如下：qq截图20170909015628.jpg


此主题相关图片如下：qq截图20170909131526.jpg

就是在点击那几个按钮和拉动窗口的时候会报错，能帮忙看一些是什么原因吗？

你的窗口乱七八糟的，请单独做一个可以正常显示的例子发上来测试。

此主题相关图片如下：360截图20170911125032564.jpg

你看这个可以吗？麻烦了！！！感谢 感谢 

SetGanntLeftCol函数

 

If Forms("计划表窗口").Opened()
    Dim t1 As Table = Tables("计划表窗口_Table4")
    Dim t2 As Table = Tables("计划表窗口_Table9")
    If t1.TopVisibleRow >=0 Then
        Dim r As Row = t1.Rows(t1.TopVisibleRow)
        Dim dt As Date = r("计划_开始日期")
        Dim nm As String = dt.Year & "年" & dt.Month &"月_" & dt.Day

        If dt = Nothing OrElse t2.Cols.Contains(nm)=False Then Return ""
        Dim idx As Integer= t2.cols(nm).Index
        t2.LeftVisibleCol = idx
    End If
End If '甘特图代码十二分之一