雨笑烟燃

 Private Sub GridEditExitCheck()
        Try
            Dim p As SourceGrid.Position = Grid1.Selection.ActivePosition
            If p.Row <> -1 AndAlso p.Column <> -1 Then
                Dim c As SourceGrid.CellContext = New SourceGrid.CellContext(Grid2, p)
                '   c.Value = CType(Grid1.Item(p.Row, p.Column).Editor, SourceGrid.Cells.Editors.TextBox).Control.Text
                c.EndEdit(False)
            End If
        Catch ex As Exception
            Exit Try
        End Try
    End Sub