[已处理] spread中有多欄的ComboBox，點選後發生錯誤

点击文件名下载附件


程式碼：
/*form載入*/
Private Sub FrmQueryStaffData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
…(省略)
Me.sqlDataAdapter1.SelectCommand = Me.CmdSelSalaryUnit
Me.sqlDataAdapter1.Fill(Me.XsPublic.Tables("SelSalaryUnit"))
Me.LBSalaryUnit.Items.Add("")

For i = 0 To Me.XsPublic.Tables("SelSalaryUnit").Rows.Count - 1
Me.LBSalaryUnit.Items.Add(Me.XsPublic.Tables("SelSalaryUnit").Rows(i)("AbbrName"))
Next
Me.SalaryUnitCombo.ListControl = Me.LBSalaryUnit

If (Me.LBSalaryUnit.Items.Count > 5) Then
MaxDrop = 5
Else
MaxDrop = Me.LBSalaryUnit.Items.Count - 1
End If
SalaryUnitCombo.MaxDrop = MaxDrop
SalaryUnitCombo.AutoSearch = AutoSearch.MultipleCharacter

Me.sqlDataAdapter1.SelectCommand = Me.CmdSelref_StaffEmployType
Me.sqlDataAdapter1.Fill(Me.XsPublic.Tables("Selref_StaffEmployType"))
Me.LBEmployType.Items.Add("")
For i = 0 To Me.XsPublic.Tables("Selref_StaffEmployType").Rows.Count - 1
Me.LBEmployType.Items.Add(Me.XsPublic.Tables("Selref_StaffEmployType").Rows(i)("EmployTypeName"))
Next
Me.EmployTypeNameCombo.ListControl = Me.LBEmployType
If (Me.LBEmployType.Items.Count > 5) Then
MaxDrop = 5
Else
MaxDrop = Me.LBEmployType.Items.Count - 1
End If
Me.EmployTypeNameCombo.MaxDrop = MaxDrop

…(省略)
End Sub



/*spread 儲存格click*/
Private Sub FpSpread_StaffData_CellClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread_StaffData.CellClick
….(省略)
If (e.ColumnHeader = False) Then
Select Case e.Column
Case 0
                                Me.SalaryUnitCombo.ListControl = Me.LBSalaryUnit
            Dim MaxDrop As Integer
                                If (Me.LBSalaryUnit.Items.Count > 5) Then
                                           MaxDrop = 5
                                Else
                                           MaxDrop = Me.LBSalaryUnit.Items.Count - 1
                                End If
                                Me.SalaryUnitCombo.MaxDrop = MaxDrop
                                
SalaryUnitCombo.AutoCompleteMode = AutoCompleteMode.SuggestAppend
SalaryUnitCombo.EditorValue = Spread.CellType.EditorValue.String
            
Me.FpSpread_Level_SheetView.Cells(e.Row, e.Column).CellType = Me.SalaryUnitCombo
Case 1
Me.EmployTypeNameCombo.ListControl = Me.LBEmployType
Dim MaxDrop As Integer
If (Me.LBEmployType.Items.Count > 5) Then
MaxDrop = 5
Else
MaxDrop = Me.LBEmployType.Items.Count - 1
End If
Me.EmployTypeNameCombo.MaxDrop = MaxDrop
Me.FpSpread_Level_SheetView.Cells(e.Row, e.Column).CellType = Me.EmployTypeNameCombo
        
                     ….(省略)
           End Select
….(省略)
End Sub

/*spread的cell指定combobox型態*/
… (省略)
        Me.FpSpread_Level_SheetView.Columns(i).Label = "*單位"
        Me.FpSpread_Level_SheetView.Columns(i).CellType = Me.SalaryUnitCombo
        Me.FpSpread_Level_SheetView.Columns(i).DataField = "AbbrName"
        Me.FpSpread_Level_SheetView.SetColumnWidth(i, 200)
        Me.FpSpread_Level_SheetView.Columns.Get(i).Font = New System.Drawing.Font(&quotMingLiU", 9.25!)
        Me.FpSpread_Level_SheetView.ColumnHeader.Columns.Get(i).Font = New System.Drawing.Font(&quotMingLiU", 9.25!)
        Me.FpSpread_Level_SheetView.Columns(i).VerticalAlignment = Spread.CellVerticalAlignment.Center
        Me.FpSpread_Level_SheetView.Columns(i).HorizontalAlignment = Spread.CellHorizontalAlignment.Left

        i = i + 1
        Me.FpSpread_Level_SheetView.Columns(i).Label = "*聘任 類別"
        Me.FpSpread_Level_SheetView.Columns(i).CellType = Me.EmployTypeNameCombo
        Me.FpSpread_Level_SheetView.Columns(i).DataField = "EmployTypeName"
        Me.FpSpread_Level_SheetView.SetColumnWidth(i, 50)
        Me.FpSpread_Level_SheetView.Columns.Get(i).Font = New System.Drawing.Font(&quotMingLiU", 9.25!)
        Me.FpSpread_Level_SheetView.ColumnHeader.Columns.Get(i).Font = New System.Drawing.Font(&quotMingLiU", 8.25!)
        Me.FpSpread_Level_SheetView.Columns(i).VerticalAlignment = Spread.CellVerticalAlignment.Center
        Me.FpSpread_Level_SheetView.Columns(i).HorizontalAlignment = Spread.CellHorizontalAlignment.Center
… (省略)
/* End */