DataSource重新设定时当前选中单元格在0,0位置

在设定Datasource的multirow上，在后几行位置加新行后，重新设定datasource，并把选中单元格，放在加行之前的位置时，光标会跳到0，0位置，再跳到所设定的位置。当行数多时会看到滚动条在上下蹦，同时会闪现第一行。
如何在这个过程中不让滚动条不动和不出现闪现？
以下是测试代码。需要在Form中先拖出一个空的GcMultirow
按enter键会加一行。在最后一行多次按enter键时会出闪现。持续按住enter键效果明显。
在做的项目中因操作复杂，所以每加一行必闪现第一行

1. 
   
2. Imports GrapeCity.Win.MultiRow
   
3. Imports GrapeCity.Win.MultiRow.InputMan
   
4. 
   
5. Public Class Form1
   
6. 
   
7.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
   
8. 
   
9.         Me.Size = New Size(760, 350)
   
10. 
    
11.         InitMultirow()
    
12.         
    
13.     End Sub
    
14. 
    
15.     Private Sub GcMultiRow1_KeyDown(sender As Object, e As KeyEventArgs) Handles GcMultiRow1.KeyDown
    
16.         If e.KeyCode = Keys.Enter Then
    
17.             GcMultiRow1.SuspendLayout()
    
18.             Dim tmpDt As DataTable = GcMultiRow1.DataSource.Copy
    
19.             Dim dr As DataRow = tmpDt.NewRow
    
20.             Dim position As CellPosition = GcMultiRow1.CurrentCellPosition
    
21.             dr(0) = position.RowIndex + 1
    
22.             dr(1) = "AddRow"
    
23.             tmpDt.Rows.InsertAt(dr, position.RowIndex + 1)
    
24.             For i As Integer = position.RowIndex To tmpDt.Rows.Count - 1
    
25.                 tmpDt.Rows(i)(0) = i + 1
    
26.             Next
    
27. 
    
28.             GcMultiRow1.DataSource = tmpDt
    
29.             GcMultiRow1.CurrentCellPosition = New CellPosition(position.RowIndex + 1, position.CellIndex)
    
30.             GcMultiRow1.ResumeLayout()
    
31.         End If
    
32.     End Sub
    
33. 
    
34.     Private Sub InitMultirow()
    
35.         GcMultiRow1.AllowUserToAddRows = False
    
36.         GcMultiRow1.AllowUserToDeleteRows = False
    
37.         GcMultiRow1.Size = New Size(741, 235)
    
38.         GcMultiRow1.Location = New Point(1, 5)
    
39.         GcMultiRow1.ScrollBars = ScrollBars.Vertical
    
40. 
    
41.         Dim tp As Template = New Template()
    
42.         tp.Width = GcMultiRow1.Width
    
43.         Dim tmpCell As GcTextBoxCell = New GcTextBoxCell
    
44.         tmpCell.DataField = "NO"
    
45.         tp.Row.Height = tmpCell.Size.Height
    
46.         tp.Row.Cells.Add(tmpCell)
    
47.         For i As Integer = 1 To 8
    
48.             tmpCell = New GcTextBoxCell
    
49.             tmpCell.Location = New Point(tmpCell.Size.Width * i, 0)
    
50.             tmpCell.DataField = "ID" & i
    
51.             tp.Row.Cells.Add(tmpCell)
    
52.         Next
    
53.         GcMultiRow1.Template = tp
    
54. 
    
55.         GcMultiRow1.DataSource = GetDataSource()
    
56.         GcMultiRow1.ShortcutKeyManager.Unregister(Keys.Enter)
    
57.     End Sub
    
58. 
    
59.     Private Function GetDataSource() As DataTable
    
60.         Dim dt1 As DataTable = New DataTable
    
61.         Dim col As DataColumn = Nothing
    
62.         dt1.Columns.Add("NO")
    
63.         dt1.Columns.Add("ID1")
    
64.         dt1.Columns.Add("ID2")
    
65.         dt1.Columns.Add("ID3")
    
66.         dt1.Columns.Add("ID4")
    
67.         dt1.Columns.Add("ID5")
    
68.         dt1.Columns.Add("ID6")
    
69.         dt1.Columns.Add("ID7")
    
70.         dt1.Columns.Add("ID8")
    
71. 
    
72.         Dim dr As DataRow = Nothing
    
73. 
    
74.         For i As Integer = 0 To 15
    
75.             dr = dt1.NewRow
    
76.             dr(0) = i + 1
    
77.             dr(1) = "D100" & i
    
78.             dr(2) = "D200" & i
    
79.             dr(3) = "D300" & i
    
80.             dr(4) = "D400" & i
    
81.             dr(5) = "D500" & i
    
82.             dr(6) = "D600" & i
    
83.             dr(7) = "D700" & i
    
84.             dr(8) = "D800" & i
    
85.             dt1.Rows.Add(dr)
    
86.         Next
    
87.         Return dt1
    
88.     End Function
    
89. End Class
    

复制代码

重新设置DataSource属性，会导致MultiRow把当前的所有行删除，然后按照新的数据源添加对应的行。所有行删除之后滚动条自然就回到开始位置了。
所以请尽可能的在当前的DataTable上做修改，不要Copy一个新的DataTable。

改为，直接编辑原DataSource的对象了。谢谢回复

回复 3楼qiuzhilv007的帖子

谢谢您的反馈。