关于MultiRow的编辑状态的问题。

现有一Form，Form里面有两个MultiRow,左边的是mlsREJI，右边的是mlsReji2

画面启动后，用鼠标点击mlsReji2的第二列，会弹出一个MsgBox。
关闭MsgBox后重复上面的操作，第二次后mlsReji2的第二列的单元格处于编辑状态的时候光标移动到了第一个MR。

现在怀疑光标移动到第一个Mr的同时，第二个MR保持着编辑状态。
有没有好的办法能让光标移动到第一个MR的同时，第二个Mr的编辑状态变成选择模式。

1. 
   
2. Public Class Mr_NewCellPositionNeeded
   
3. 
   
4.     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Dim tmplate As New GrapeCity.Win.MultiRow.Template
   
6.         tmplate.Clear()
   
7.         tmplate.Width = mlsREJI.Width
   
8.         tmplate.Row.Width = tmplate.Width
   
9.         tmplate.Row.Height = 21
   
10.         tmplate.Row.Cells.Add(New GrapeCity.Win.MultiRow.InputMan.GcTextBoxCell)
    
11.         tmplate.Row.Cells.Add(New GrapeCity.Win.MultiRow.InputMan.GcNumberCell)
    
12.         tmplate.Row.Cells(1).Location = New Point(tmplate.Row.Cells(0).Size.Width, 0)
    
13.         mlsREJI.Template = tmplate
    
14.         mlsREJI.AllowUserToAddRows = False
    
15.         mlsREJI.AllowUserToResize = False
    
16.         mlsREJI.AllowUserToDeleteRows = False
    
17.         mlsREJI.AllowUserToAutoFitColumns = False
    
18.         mlsREJI.RowCount = 3
    
19.         mlsREJI.EditMode = GrapeCity.Win.MultiRow.EditMode.EditOnEnter
    
20.         With CType(mlsREJI.Template.Row.Cells(1), GrapeCity.Win.MultiRow.InputMan.GcNumberCell)
    
21.             .SideButtons.Clear()
    
22.         End With
    
23. 
    
24.         Dim tmplate2 As GrapeCity.Win.MultiRow.Template = tmplate.Clone
    
25.         With CType(tmplate2.Row.Cells(1), GrapeCity.Win.MultiRow.InputMan.GcNumberCell)
    
26.             Dim NumberDecimalPartDisplayField1 As GrapeCity.Win.MultiRow.InputMan.NumberDecimalPartDisplayField = New GrapeCity.Win.MultiRow.InputMan.NumberDecimalPartDisplayField()
    
27.             Dim NumberDecimalSeparatorDisplayField1 As GrapeCity.Win.MultiRow.InputMan.NumberDecimalSeparatorDisplayField = New GrapeCity.Win.MultiRow.InputMan.NumberDecimalSeparatorDisplayField()
    
28.             .SideButtons.Clear()
    
29.             NumberDecimalPartDisplayField1.MaxDigits = 0
    
30.             Dim NumberIntegerPartDisplayField1 As GrapeCity.Win.MultiRow.InputMan.NumberIntegerPartDisplayField = New GrapeCity.Win.MultiRow.InputMan.NumberIntegerPartDisplayField()
    
31.             Dim NumberSignDisplayField3 As GrapeCity.Win.MultiRow.InputMan.NumberSignDisplayField = New GrapeCity.Win.MultiRow.InputMan.NumberSignDisplayField()
    
32.             NumberIntegerPartDisplayField1.GroupSizes = New Integer() {3, 3, 0}
    
33.             NumberSignDisplayField3.PositivePattern = "元"
    
34.             .DisplayFields.Clear()
    
35.             .DisplayFields.Add(NumberIntegerPartDisplayField1)
    
36.             .DisplayFields.Add(NumberDecimalSeparatorDisplayField1)
    
37.             .DisplayFields.Add(NumberDecimalPartDisplayField1)
    
38.             .DisplayFields.Add(NumberSignDisplayField3)
    
39.             .MaxValue = 99999999
    
40.             .Fields.DecimalPart.MaxDigits = 0
    
41.             .Fields.IntegerPart.GroupSizes = New Integer() {0}
    
42.             .Fields.IntegerPart.MaxDigits = 7
    
43.             .Fields.IntegerPart.MinDigits = 1
    
44.             .Fields.SignPrefix.NegativePattern = ""
    
45. 
    
46.         End With
    
47.         mlsReji2.Template = tmplate2
    
48.         mlsReji2.AllowUserToAddRows = False
    
49.         mlsReji2.AllowUserToResize = False
    
50.         mlsReji2.AllowUserToDeleteRows = False
    
51.         mlsReji2.AllowUserToAutoFitColumns = False
    
52.         mlsReji2.RowCount = 3
    
53.         mlsReji2.EditMode = GrapeCity.Win.MultiRow.EditMode.EditOnEnter
    
54. 
    
55.         For inci As Integer = 0 To 2
    
56.             mlsReji2(inci, 0).Value = CStr(inci)
    
57.             mlsReji2(inci, 1).Value = 9999
    
58.             mlsREJI(inci, 0).Value = CStr(inci)
    
59.             mlsREJI(inci, 1).Value = "9"
    
60.         Next
    
61.     End Sub
    
62. 
    
63. 
    
64.     Private Sub mlsREJI_CellLeave(sender As Object, e As GrapeCity.Win.MultiRow.CellEventArgs) Handles mlsREJI.CellLeave
    
65.         RemoveHandler mlsREJI.CellLeave, AddressOf mlsREJI_CellLeave
    
66.         If Me.ActiveControl Is mlsREJI OrElse _
    
67.             (TypeName(Me.ActiveControl).Contains("GcTextBoxEditingControl") AndAlso CType(Me.ActiveControl, GrapeCity.Win.MultiRow.InputMan.GcTextBoxEditingControl).GcMultiRow Is mlsREJI) OrElse _
    
68.             (TypeName(Me.ActiveControl).Contains("GcNumberEditingControl") AndAlso CType(Me.ActiveControl, GrapeCity.Win.MultiRow.InputMan.GcNumberEditingControl).GcMultiRow Is mlsREJI) Then
    
69.         Else
    
70.             GrapeCity.Win.MultiRow.SelectionActions.MoveToNextCell.Execute(mlsREJI)
    
71.             mlsREJI.Focus()
    
72.         End If
    
73.         AddHandler mlsREJI.CellLeave, AddressOf mlsREJI_CellLeave
    
74.     End Sub
    
75. 
    
76.     Private Sub mlsREJI_NewCellPositionNeeded(sender As Object, e As GrapeCity.Win.MultiRow.NewCellPositionNeededEventArgs) Handles mlsREJI.NewCellPositionNeeded
    
77.         If e.CellIndex = 1 Then
    
78. 
    
79.             MsgBox("mlsREJI_NewCellPositionNeeded")
    
80.             e.NewCellPosition = New GrapeCity.Win.MultiRow.CellPosition(e.RowIndex, e.CellIndex)
    
81.         End If
    
82.     End Sub
    
83. End Class
    
84. 
    

复制代码

回复 1楼sxyweiren的帖子

谢谢您的反馈。
您的问题我们收到了，调查后给您反馈。

> 画面启动后，用鼠标点击mlsReji2的第二列，会弹出一个MsgBox。
我运行的你提供的代码，但是点击mlsReji的第二列的时候并没有弹出MsgBox。是否可以提供一个直接可以用VisualStudio打开的工程来重现这个问题呢？这样调查起来会容易些

回复 3楼robert的帖子

应该是可以的。。
首先把光标放在mlsReji里面。然后点击mlsReji2的第二个单元格。
这个时候会触发mlsReji的CellLeave事件。事件里面通过单元格的移动触发了NewCellPositionNeeded事件。
NewCellPositionNeeded里，如果判断当前单元格是mlsReji的话，会执行类似于CancelEdit的动作。

你可以再试试。。如果还不行我这边想法吧Source给上传了。

回复 3楼robert的帖子

我把Form的代码上传了。
你是试试 。。

画面启动后点击绿色单元格。。发现黄色单元格移动。再次点击绿色单元格。。发现绿色单元格的Format没了。

回复 5楼sxyweiren的帖子

谢谢提供的Demo。
您的问题我们收到了，测试后给您反馈。

多谢你的代码，我觉得可以重现你遇到的问题了。问题的原因好像是MessageBox把消息循环搞乱了。请尝试按以下代码的方式修改，看是否可以解决问题

1.    
   
2.     Private Sub mlsREJI_NewCellPositionNeeded(sender As Object, e As GrapeCity.Win.MultiRow.NewCellPositionNeededEventArgs) Handles mlsREJI.NewCellPositionNeeded
   
3.         If e.CellIndex = 1 Then
   
4.             BeginInvoke(New System.Action(AddressOf ShowMessage))
   
5.             e.NewCellPosition = New GrapeCity.Win.MultiRow.CellPosition(e.RowIndex, e.CellIndex)
   
6.         End If
   
7.     End Sub
   
8. 
   
9.     Private Sub ShowMessage()
   
10.         MsgBox("mlsREJI_NewCellPositionNeeded")
    
11.     End Sub
    

复制代码

回复 7楼robert的帖子

谢谢了，最近去了另外一个项目暂时帮忙。所以结果暂时不好验证了。

麻烦先把帖子关掉吧。如果再有问题我在发个新的。

回复 8楼sxyweiren的帖子

好的，谢谢您的反馈。
问题暂时关闭，如果有问题，请跟帖。