主题：[求助] ：窗口中的两个table，如何自动同步行高？和实现同步滚动数据行！

好东西

贺老师，还需要帮助我一下，我只需要同步滚动竖向滚动条，而不需要同步移动横向滚动条，整了一晚上，找不到方法！

建议增加滚动条事件（用定时器执行，表太大的时候显得有点卡），谢谢！

以后增加表滚动事件，目前卡的话，就将定时器的间隔设置稍微大点。

只有垂直方向的联动：

Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
If t2.Grid.ScrollPosition.Y <> t1.Grid.ScrollPosition.Y  Then
    t2.Grid.ScrollPosition = New point(t2.Grid.ScrollPosition.X,t1.Grid.ScrollPosition.Y)
End If
If  t2.grid.Rows(0).Height <> t1.grid.Rows(0).height Then
    t2.grid.Rows(0).Height = t1.grid.Rows(0).height
End If
If  t2.grid.Rows.DefaultSize <> t1.grid.Rows.DefaultSize Then
    t2.grid.Rows.DefaultSize = t1.grid.Rows.DefaultSize
End If

谢谢！

    如果可以利用主表来实现模拟甘特图的话、可以实现项目进度所见即所得，利用foxtable完全可以作出很多数据计算、成本分析、劳动力曲线、进度跟踪........等等

       目前已经实现根据项目最早开始时间和最晚结束时间自动同步表标题为时间刻度、自动绘制进度条、自动计算工期、自动根据总进度和当前选中的正在实施某一关键项目，并输入该项目的实际开始时间，自动计算出工期延误天数，并一键生成下月进度计划，同理自动生成周计划，可以再也不用趴在电脑前为上报月计划、周计划而花很大的经历了，最快几十秒钟ok！

  只是还不太美观（正在准备在主表位置直接插入颜色标签来代替单元格绘图的方案），望各位高手支招：

此主题相关图片如下：a.jpg
 

^_^，贺老师，这个才值得您叫好，下午那个不算，采用控件模拟进度条成功，根据数据表纵横向定位实现，这种模拟方式更加美观，比单元格绘图更加快捷，还可以为甘特图的进度条附加很多的备注和属性，这种模拟方式的实现，应该可以实现微软Project的大部分功能。

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

点击浏览该文件:甘特图操作录像.rar

此主题相关图片如下：c.jpg

程版  这个牛逼啊    我悟了 微软Project  那么多回（早在玩易表的时候就想实现这样的功能）  怎么就没想到用这种思路去思考问题呢

这回 省下脑细胞了    绝    抄袭先   比赛时  不要骂俺盗版