EditingControl的SelectedIndexChanged的问题。

今天对于EditingControl的SelectedIndexChanged进行监控，结果发现了下面的问题。
现在怀疑属于MR8.0的Bug。请确认。

1，Mr的EditMode设定为EditOnEnter或者在CellEnter事件里面添加逻辑BeginEdit
2，Mr一共两列，第一列设定为ComboBox，DropDownStyle设定为DropDown，Items里面的值为 11，22，33，44，55，66
3，每一行的第一列的值都设置为不同的值。比如第一行为11，第二行为22，第三行为33
4，点击ComboBox单元格，发现第二列的值发生了错乱。

代码参考


    Private Sub mlsREJI_CellEditedFormattedValueChanged(sender As Object, e As GrapeCity.Win.MultiRow.CellEditedFormattedValueChangedEventArgs) Handles mlsREJI.CellEditedFormattedValueChanged
        Debug.Print(e.Reason)
        If e.Reason = "SelectedIndexChanged" Then
            mlsREJI(e.RowIndex, e.CellIndex + 1).Value = mlsREJI(e.RowIndex, e.CellIndex).EditedFormattedValue
        End If
    End Sub

    Private Sub GcMultiRow1_EditingControlShowing(sender As Object, e As GrapeCity.Win.MultiRow.EditingControlShowingEventArgs) Handles mlsREJI.EditingControlShowing
        If TypeOf e.Control Is GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl Then
            Dim combo As GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl = e.Control
            RemoveHandler combo.SelectedIndexChanged, AddressOf combo_SelectedIndexChanged
            AddHandler combo.SelectedIndexChanged, AddressOf combo_SelectedIndexChanged

        End If
    End Sub

    Private Sub combo_SelectedIndexChanged(sender As Object, e As EventArgs)
        If Convert.ToString(mlsREJI.CurrentCell.Value) <> Convert.ToString(mlsREJI.CurrentCell.EditedFormattedValue) Then
            With mlsREJI.CurrentCell
                Call mlsREJI_CellEditedFormattedValueChanged(mlsREJI, New GrapeCity.Win.MultiRow.CellEditedFormattedValueChangedEventArgs(.RowIndex, .CellIndex, .Name, "SelectedIndexChanged"))
            End With
        End If
    End Sub

这里我用的ComboBox是GrapeCity.Win.MultiRow.InputMan.GcComboBox

不知道你说的错乱是什么意思，我按你的代码思路做了个程序。效果是当我点击第一列的Cell时，第二列的值会立即变成第一列的值。这个是你说的错乱效果吗？

回复 3楼robert的帖子

然后依次点击第二行的第一列，第三行的第一列，第一行的第一列
会发现第二行的第二列的值是第一行的第一列的值。
第三行的第二列的值是第二行的第一列的值。
第一行的第二列的值是第三行的第一列的值。

回复 3楼robert的帖子

另外，如果第一行第一列的单元格选中22，然后选中33（初期单元格的值不是33）
按下回车键的时候值会自动变成光标初次进入时的第一行第一列的值。

是否可以上传一个简单的工程来重现你的问题呢？

回复 6楼robert的帖子

由于我这边不能在上班期间上传下载文件，所以做了一个动态模板的Sample。
首先创建一个Form1，在Form1上拖一个Mr，Mr的Name定义为mlsREJI。

操作方法：首先把第一列的值从上到下修改成当前值+11（小键盘直接输入，不是通过下拉菜单选择），比如11变成22,然后通过鼠标点击选择下一行。
               都改完了，会发现第一列和第二列的值不相等。
              然后从上到下点击第一列的单元格，发现光标进入单元格的同时触发了SelectedIndexChanged事件，导致前一列和后一列的值相等了。

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
4.         Dim tmplate As New GrapeCity.Win.MultiRow.Template
   
5.         tmplate.Clear()
   
6.         tmplate.Width = mlsREJI.Width
   
7.         tmplate.Row.Width = tmplate.Width
   
8.         tmplate.Row.Height = 21
   
9.         tmplate.Row.Cells.Add(New GrapeCity.Win.MultiRow.InputMan.GcComboBoxCell)
   
10.         tmplate.Row.Cells.Add(New GrapeCity.Win.MultiRow.LabelCell)
    
11.         tmplate.Row.Cells(1).Location = New Point(tmplate.Row.Cells(0).Size.Width, 0)
    
12.         CType(tmplate.Row.Cells(0), GrapeCity.Win.MultiRow.InputMan.GcComboBoxCell).DropDownStyle = GrapeCity.Win.MultiRow.MultiRowComboBoxStyle.DropDown
    
13.         With CType(tmplate.Row.Cells(0), GrapeCity.Win.MultiRow.InputMan.GcComboBoxCell).Items
    
14.             .Add(&quot;11&quot;)
    
15.             .Add(&quot;22&quot;)
    
16.             .Add(&quot;33&quot;)
    
17.             .Add(&quot;44&quot;)
    
18.             .Add(&quot;55&quot;)
    
19.             .Add(&quot;66&quot;)
    
20.             .Add(&quot;77&quot;)
    
21.             .Add(&quot;88&quot;)
    
22.             .Add(&quot;99&quot;)
    
23.             .Add(&quot;00&quot;)
    
24.         End With
    
25.         CType(tmplate.Row.Cells(0), GrapeCity.Win.MultiRow.InputMan.GcComboBoxCell).AutoSelect = False
    
26.         mlsREJI.Template = tmplate
    
27.         mlsREJI.AllowUserToAddRows = False
    
28.         mlsREJI.AllowUserToResize = False
    
29.         mlsREJI.AllowUserToDeleteRows = False
    
30.         mlsREJI.AllowUserToAutoFitColumns = False
    
31.         mlsREJI.RowCount = 10
    
32.         mlsREJI.EditMode = GrapeCity.Win.MultiRow.EditMode.EditOnEnter
    
33. 
    
34.         For inti As Integer = 0 To 6
    
35.             mlsREJI.Item(inti, 0).Value = CStr(inti + 1) &amp; CStr(inti + 1)
    
36.         Next
    
37.     End Sub
    
38. 
    
39. 
    
40.     Private Sub mlsREJI_CellEditedFormattedValueChanged(sender As Object, e As GrapeCity.Win.MultiRow.CellEditedFormattedValueChangedEventArgs) Handles mlsREJI.CellEditedFormattedValueChanged
    
41.         Debug.Print(e.Reason)
    
42.         If e.Reason = &quot;SelectedIndexChanged&quot; Then
    
43.             mlsREJI(e.RowIndex, e.CellIndex + 1).Value = mlsREJI(e.RowIndex, e.CellIndex).EditedFormattedValue
    
44.         End If
    
45.     End Sub
    
46. 
    
47.     Private Sub GcMultiRow1_EditingControlShowing(sender As Object, e As GrapeCity.Win.MultiRow.EditingControlShowingEventArgs) Handles mlsREJI.EditingControlShowing
    
48.         If TypeOf e.Control Is GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl Then
    
49.             Dim combo As GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl = e.Control
    
50.             RemoveHandler combo.SelectedIndexChanged, AddressOf combo_SelectedIndexChanged
    
51.             AddHandler combo.SelectedIndexChanged, AddressOf combo_SelectedIndexChanged
    
52.         End If
    
53.     End Sub
    
54.     Private Sub combo_SelectedIndexChanged(sender As Object, e As EventArgs)
    
55.         With mlsREJI.CurrentCell
    
56.             Call mlsREJI_CellEditedFormattedValueChanged(mlsREJI, New GrapeCity.Win.MultiRow.CellEditedFormattedValueChangedEventArgs(.RowIndex, .CellIndex, .Name, &quot;SelectedIndexChanged&quot;))
    
57.         End With
    
58.     End Sub
    
59. End Class
    

复制代码

我用你的代码做了个工程，感觉重现你说的问题了。
你试试如下代码是否可以解决问题

2.     Private Sub mlsREJI_CellValidated(sender As Object, e As CellEventArgs) Handles mlsREJI.CellValidated
3.         If TypeOf mlsREJI.EditingControl Is GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl Then
4.             Dim combo As GrapeCity.Win.MultiRow.InputMan.GcComboBoxEditingControl = mlsREJI.EditingControl
5.             RemoveHandler combo.SelectedIndexChanged, AddressOf combo_SelectedIndexChanged
6.         End If
7.     End Sub

复制代码

回复 8楼robert的帖子

稍微可以了。但是因为EditMode是EditOnEnter所以，在执行代码EndEdit等操作的时候还是会触发EditingControl的SelectedIndex事件。。

实在是不好搞了。我这边用了全局变量拦截，另外加了个Timer，每隔200毫秒把全局变量初期化（False）。
EditingControlShowing的时候把全局变量设置为不可触发EditingControl的SelectedIndex事件的值（True）

》 稍微可以了。但是因为EditMode是EditOnEnter所以，在执行代码EndEdit等操作的时候还是会触发EditingControl的SelectedIndex事件。
其实，你遇到的最主要原因就是EditingControlShowing的时候要挂EditingControl的事件，但是没有好的时机去移除事件。
针对你说的这个问题，也可以处理为在EndEdit的时候先移除事件，再处理逻辑。如果EndEdit的时机还是太晚的话也可以移动到CellValidating事件里去摘事件。
Timer方法可以解决，但是经常会引入一些非预期的问题，且不好调试。建议慎用。