在 ComboBoxCell.Items 集合中使用 IndexOf 在不区分大小写的比较中抛出异常

Question

我没有找到适合我的问题的解决方案。一点解释。我有几个列的 DataGridView。在第一列中，单元格显示某个文件的路径。从第三列开始，我有几个 ComboBoxCells。

在 ComboBoxes 的 DropDown 中，我希望使自动 select 值与第一个单元格中的文件路径部分相等（不区分大小写）。这一切都发生在 Form.Load.
稍后，用户做出自己的选择。

Dim CmbCell As DataGridViewComboBoxCell = CType(DgvRow.Cells(2), DataGridViewComboBoxCell)
Dim ResultString As String
If HasDropDownThisValue(DgvRow.Cells(0).Value.ToString, CmbCell, ResultString) Then
    CmbCell.Value = CmbCell.Items(CmbCell.Items.IndexOf(ResultString))
End If

这是If语句中使用的方法：

Private Function HasDropDownThisValue(ByVal GivenValue As String, ByRef comboCeel As DataGridViewComboBoxCell, ByRef ReturnValue As String) As Boolean
    ReturnValue = ""
    Dim boolret As Boolean = False
    Dim comparestring As String
    Dim StringArr() As String = Split(GivenValue, CStr(Path.DirectorySeparatorChar), -1, VisualBasic.CompareMethod.Text)
    comparestring = StringArr(0)
    For i As Integer = 1 To UBound(StringArr)

        If comboCeel.Items.Cast(Of String).Contains(comparestring, StringComparer.OrdinalIgnoreCase) Then
            ReturnValue = comparestring
            boolret = True
            Exit For
        Else
            comparestring = String.Format("{0}{1}{2}", comparestring, Path.DirectorySeparatorChar, StringArr(i))
        End If
    Next
    Return boolret
End Function

行：

CmbCell.Value = CmbCell.Items(CmbCell.Items.IndexOf(ResultString))

大小写不匹配时抛出异常。如何避免这种情况？
我可能可以这样做：CmbCell.Value = ResultString，但我更喜欢在 Items 集合中预定义值。

也许这样的事情是可能的（在函数中使用）：

comboCeel.Items.Cast(Of String).Contains(comparestring, StringComparer.OrdinalIgnoreCase)

Answer 1

由于需要不区分大小写的匹配，可以使用IndexOf(), with the StringComparison选项设置为StringComparison.OrdinalIgnoreCase，在DataGridViewComboBoxCell.ObjectCollection中查找字符串值（代表字符串集合，在这种情况下）。

我建议在 HasDropDownThisValue 方法中设置 Dim ResultString As String = Nothing 而不是将其重置为 String.Empty ("")：如果方法 returns False，然后设置 [ComboBoxCell].Value = ResultString（即 Nothing），因此组合框选择被清除。
否则，使用 IndexOf() 在集合中查找匹配的字符串。尽管如此，如果没有找到匹配项，结果值将是 Nothing，因此 ComboBox 被清除；否则设置找到的值：

_{（局部变量重命名以符合标准命名约定）}

Dim resultString As String = Nothing
Dim cmbCell = CType(DgvRow.Cells(2), DataGridViewComboBoxCell)

If HasDropDownThisValue(DgvRow.Cells(0).Value?.ToString(), cmbCell, resultString) Then
    resultString = cmbCell.Items.OfType(Of String).
        FirstOrDefault(Function(i) i.IndexOf(resultString, StringComparison.OrdinalIgnoreCase) >= 0)
End If
cmbCell.Value = resultString

如您所见，传递 resultString 作为参考变得毫无用处。您可以将方法更改为 return 字符串而不是布尔值，因为无论如何我们都需要使用该字符串（无论 HasDropDownThisValue 是否找到匹配项）。

此外，您不应该传递 ComboBox Cell ByRef：此对象已经是引用类型，您应该传递它 ByVal（或者不指定修饰符，因为 ByVal 是默认值）。

在 ComboBoxCell.Items 集合中使用 IndexOf 在不区分大小写的比较中抛出异常

Using IndexOf in ComboBoxCell.Items collection throws an exception in case-insensitive comparisons

vb.net

indexof

case-insensitive

datagridviewcomboboxcell