SpreadWin5又一个BUG

Sprea中有4列。其中B列,D列为下拉列表类型。在A列中输入值后，按下回车，会叫焦点转移到B列，同时会设置B列的值。
焦点进入单元格，会切换到编辑状态。

BUG再现操作：
在A列输入1，按下回车，制动设定B列的值，并且焦点转移到B列。再次按下回车，焦点转移到C列，在C列中输入3，按下回车~出现了异常。

上传不了测试例子，只好一个一个代码沾上来了~~
Form1.Designer.vb
----------------------------------------------

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
   
2. Partial Class Form1
   
3.     Inherits System.Windows.Forms.Form
   
4. 
   
5.     'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
   
6.     <System.Diagnostics.DebuggerNonUserCode()> _
   
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
   
8.         Try
   
9.             If disposing AndAlso components IsNot Nothing Then
   
10.                 components.Dispose()
    
11.             End If
    
12.         Finally
    
13.             MyBase.Dispose(disposing)
    
14.         End Try
    
15.     End Sub
    
16. 
    
17.     'Windows フォーム デザイナで必要です。
    
18.     Private components As System.ComponentModel.IContainer
    
19. 
    
20.     'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
    
21.     'Windows フォーム デザイナを使用して変更できます。  
    
22.     'コード エディタを使って変更しないでください。
    
23.     <System.Diagnostics.DebuggerStepThrough()> _
    
24.     Private Sub InitializeComponent()
    
25.         Dim ComboBoxCellType1 As FarPoint.Win.Spread.CellType.ComboBoxCellType = New FarPoint.Win.Spread.CellType.ComboBoxCellType
    
26.         Dim ComboBoxCellType2 As FarPoint.Win.Spread.CellType.ComboBoxCellType = New FarPoint.Win.Spread.CellType.ComboBoxCellType
    
27.         Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread
    
28.         Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView
    
29.         Me.Button1 = New System.Windows.Forms.Button
    
30.         Me.Button2 = New System.Windows.Forms.Button
    
31.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
    
32.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
    
33.         Me.SuspendLayout()
    
34.         '
    
35.         'FpSpread1
    
36.         '
    
37.         Me.FpSpread1.AccessibleDescription = "FpSpread1, Sheet1, Row 0, Column 0, "
    
38.         Me.FpSpread1.Location = New System.Drawing.Point(47, 12)
    
39.         Me.FpSpread1.Name = "FpSpread1"
    
40.         Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
    
41.         Me.FpSpread1.Size = New System.Drawing.Size(529, 228)
    
42.         Me.FpSpread1.TabIndex = 0
    
43.         '
    
44.         'FpSpread1_Sheet1
    
45.         '
    
46.         Me.FpSpread1_Sheet1.Reset()
    
47.         Me.FpSpread1_Sheet1.SheetName = "Sheet1"
    
48.         'Formulas and custom names must be loaded with R1C1 reference style
    
49.         Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
    
50.         ComboBoxCellType1.ButtonAlign = FarPoint.Win.ButtonAlign.Right
    
51.         ComboBoxCellType1.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.Index
    
52.         ComboBoxCellType1.Items = New String() {"", "B1", "B2"}
    
53.         Me.FpSpread1_Sheet1.Columns.Get(1).CellType = ComboBoxCellType1
    
54.         ComboBoxCellType2.ButtonAlign = FarPoint.Win.ButtonAlign.Right
    
55.         ComboBoxCellType2.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.Index
    
56.         ComboBoxCellType2.Items = New String() {"", "A1", "A2", "A3", "A4"}
    
57.         Me.FpSpread1_Sheet1.Columns.Get(3).CellType = ComboBoxCellType2
    
58.         Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
    
59.         Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
    
60.         '
    
61.         'Button1
    
62.         '
    
63.         Me.Button1.Location = New System.Drawing.Point(47, 260)
    
64.         Me.Button1.Name = "Button1"
    
65.         Me.Button1.Size = New System.Drawing.Size(75, 23)
    
66.         Me.Button1.TabIndex = 1
    
67.         Me.Button1.Text = "Button1"
    
68.         Me.Button1.UseVisualStyleBackColor = True
    
69.         '
    
70.         'Button2
    
71.         '
    
72.         Me.Button2.Location = New System.Drawing.Point(138, 260)
    
73.         Me.Button2.Name = "Button2"
    
74.         Me.Button2.Size = New System.Drawing.Size(75, 23)
    
75.         Me.Button2.TabIndex = 2
    
76.         Me.Button2.Text = "Button2"
    
77.         Me.Button2.UseVisualStyleBackColor = True
    
78.         '
    
79.         'Form1
    
80.         '
    
81.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
    
82.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    
83.         Me.ClientSize = New System.Drawing.Size(859, 500)
    
84.         Me.Controls.Add(Me.Button2)
    
85.         Me.Controls.Add(Me.Button1)
    
86.         Me.Controls.Add(Me.FpSpread1)
    
87.         Me.Name = "Form1"
    
88.         Me.Text = "Form1"
    
89.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
    
90.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
    
91.         Me.ResumeLayout(False)
    
92. 
    
93.     End Sub
    
94.     Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
    
95.     Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
    
96.     Friend WithEvents Button1 As System.Windows.Forms.Button
    
97.     Friend WithEvents Button2 As System.Windows.Forms.Button
    
98. 
    
99. End Class

复制代码

Form1.vb
-------------------------

1. Imports FarPoint.Win.Spread
2. Imports FarPoint.Win.Spread.CellType
4. Public Class Form1
5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
7.         FpSpread1_Sheet1.ColumnCount = 6
9.         SetSpreadInputMap()
11.         SetListBox()
12.     End Sub
14.     Private Sub SetSpreadInputMap()
15.         Dim oMap As InputMap
16.         oMap = FpSpread1.GetInputMap(InputMapMode.WhenFocused)
17.         oMap.Put(New Keystroke(Keys.Enter, Keys.None), SpreadActions.MoveToNextColumnWrap)
18.         oMap.Put(New Keystroke(Keys.Enter, Keys.Shift), SpreadActions.MoveToPreviousColumnWrap)
20.         oMap = FpSpread1.GetInputMap(InputMapMode.WhenAncestorOfFocused)
21.         oMap.Put(New Keystroke(Keys.F2, Keys.None), SpreadActions.None)
22.         oMap.Put(New Keystroke(Keys.F3, Keys.None), SpreadActions.None)
23.         oMap.Put(New Keystroke(Keys.F4, Keys.None), SpreadActions.None)
25.         oMap.Put(New Keystroke(Keys.Tab, Keys.None), SpreadActions.None)
26.         oMap.Put(New Keystroke(Keys.Tab, Keys.Shift), SpreadActions.None)
28.         oMap.Put(New Keystroke(Keys.Enter, Keys.None), SpreadActions.MoveToNextColumnWrap)
29.         oMap.Put(New Keystroke(Keys.Enter, Keys.Shift), SpreadActions.MoveToPreviousColumnWrap)
31.         oMap.Put(New Keystroke(Keys.Left, Keys.None), SpreadActions.MoveToPreviousColumnWrap)
32.         oMap.Put(New Keystroke(Keys.Right, Keys.None), SpreadActions.MoveToNextColumnWrap)
33.     End Sub
35.     Private Sub SetListBox()
37.         Dim oListBox1 As New ListBox()
38.         oListBox1.Items.Add(&quot;&quot;)
39.         oListBox1.Items.Add(&quot;B1&quot;)
40.         oListBox1.Items.Add(&quot;B2&quot;)
42.         Dim oListBox3 As New ListBox()
43.         oListBox3.Items.Add(&quot;&quot;)
44.         oListBox3.Items.Add(&quot;A1&quot;)
45.         oListBox3.Items.Add(&quot;A2&quot;)
46.         oListBox3.Items.Add(&quot;A3&quot;)
47.         oListBox3.Items.Add(&quot;A4&quot;)
49.         Dim ct1 As ComboBoxCellType = CType(FpSpread1.Sheets(0).Columns(1).CellType, ComboBoxCellType)
50.         Dim ct3 As ComboBoxCellType = CType(FpSpread1.Sheets(0).Columns(3).CellType, ComboBoxCellType)
52.         ct1.ListControl = oListBox1
53.         ct3.ListControl = oListBox3
55.         AddHandler oListBox1.KeyDown, AddressOf pCellKeyDown
56.         AddHandler oListBox3.KeyDown, AddressOf pCellKeyDown
57.     End Sub
59.     Private Sub pCellKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
61.         If e.KeyCode = Keys.Enter Then
63.             FpSpread1.StopCellEditing()
64.             SendKeys.Send(&quot;{Enter}&quot;)
65.         End If
66.     End Sub
68.     Private Sub FpSpread1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles FpSpread1.EnterCell
69.         Select Case e.Column
70.             Case 1
71.                 FpSpread1.EditMode = True
72.             Case 3
73.                 FpSpread1.EditMode = True
74.             Case Else
75.                 FpSpread1.EditMode = True
76.         End Select
77.     End Sub
79.     Private Sub FpSpread1_Sheet1_CellChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.SheetViewEventArgs) Handles FpSpread1_Sheet1.CellChanged
80.         Select Case e.Column
81.             Case 0
82.                 Dim value As Integer = IIf(FpSpread1_Sheet1.Cells(e.Row, e.Column).Text = &quot;&quot;, 0, CInt(FpSpread1_Sheet1.Cells(e.Row, e.Column).Text))
83.                 FpSpread1_Sheet1.Cells(e.Row, 1).Value = value
84.             Case 2
85.                 Dim value As Integer = IIf(FpSpread1_Sheet1.Cells(e.Row, e.Column).Text = &quot;&quot;, 0, CInt(FpSpread1_Sheet1.Cells(e.Row, e.Column).Text))
86.                 FpSpread1_Sheet1.Cells(e.Row, 3).Value = value
87.         End Select
88.     End Sub
89. End Class

复制代码

怎么解决这个问题呀？？请多指教~谢谢

可以通过以下方法上传附件，请使用IE8浏览器：
1、点击【高级回复】
2、点击【添加附件】
3、如果没有反应，将回复窗口关掉
4、再次点击【高级回复】
5、点击【添加附件】

你好，你使用的 Spread WinForm5 是日文版还是英文版，我这边只能在英文版中看能否重现该问题

我用的是日文版，不知道英文版是否可以再现：（
您先试一下吧

顺便说一下，俺发的那个EditModePermanent的问题很要命呀~~
因为触发的事件混乱了，升级程序遭到重创：（
http://gcdn.grapecity.com/showtopic-1985.html

英文版和日文版是两个不同的产品，我只能先在引文版中试一下，如果无法重现，还得麻烦你把你的例子发来看一下。

我试验结果如下，并没发现什么异常：
1、程序启动之后，ActiveCell是A1
2、输入1之后，A1得到输入焦点，并且值为1
3、按Enter之后ActiveCell变为B1，B1的值也为B1，再按Enter时B1显示下拉框，并且选项中选中的是B1，按Enter键之后ActiveCell变为C1
4、此时C1获得输入焦点，输入3之后按Enter键，D1变为ActiveCell，并且选中的是A3

不知道你说的在C1中输入3之后是什么异常