两个Multirow如何滚动条连动

如图 m1有垂直滚动条 m2无滚动条 m2在m1里  
如何m1滚动时 m2的数据跟着滚动

用
Private Sub dw_i0102_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles dw_i0102.Scroll

        If (e.ScrollOrientation = ScrollOrientation.VerticalScroll) Then
            If Me.m_scrollByEvent = False Then
                Dim gcMultiRow As ExSMultiRow = DirectCast(sender, ExSMultiRow)
                Dim scrollTarget As ExSMultiRow = Me.dw_02
                If Not gcMultiRow Is Nothing Then
                    Dim newPos As CellPosition = New CellPosition(e.NewValue, scrollTarget.CurrentCellPosition.CellIndex)
                    Me.m_scrollByEvent = True
                    scrollTarget.FirstDisplayedCellPosition = newPos
                End If
            Else
                Me.m_scrollByEvent = False
            End If
        End If
     
    End Sub 效果不行

图上分出m1, m2
就把你上面的的这个演示工程发上来吧，我们看看。

点击这里下载

http://ip.haso-soft.com:3037/util/bbsimg/SMScrollDemo.rar


推动之后 明显最后裂开了

为什么要做这样的事情呢。  为什么不直接用一个MultiRow就可以了。

我估计你是想对这两个MultiRow分别绑定数据源，  其实这可以为数据源连接，或者建数据视图来完成的。

最后说一句， 你的代码中把m_scrollByEvent变量的保护删除就不会裂开了。

删除m_scrollByEvent变量，并把引用它的地方都删掉，不需要做保护。