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

右边的跟着左边动：

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

点击浏览该文件:管理项目185.rar

我测试OK:

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

点击浏览该文件:管理项目185.rar

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

只有垂直方向的联动：

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

哈哈，老程这个太有创意了。

我要提取出来，单独发个帖子，这样才醒目。

不过在这之前，我应该来个AfterScroll事件才行。