1

我想在数据网格中搜索文本,如下所示的代码给出错误

For i As Integer = 0 To _dt.Items.Count - 1
            Dim row As DataGridRow = DirectCast(_dt.ItemContainerGenerator.ContainerFromIndex(i), DataGridRow)
            For j As Integer = 0 To _dt.Columns.Count - 1
                If row IsNot Nothing Then
                    Dim cellContent As TextBlock = TryCast(_dt.Columns(j).GetCellContent(row), TextBlock)
                    If cellContent IsNot Nothing AndAlso cellContent.Text.Equals(txtfind.Text) Then
                        _dt.ScrollIntoView(row, _dt.Columns(j))
                        Dim presenter As DataGridCellsPresenter = GetVisualChild(Of DataGridCellsPresenter(row))
                        Dim cell As DataGridCell = DirectCast(presenter.ItemContainerGenerator.ContainerFromIndex(j), DataGridCell)
                        _dt.SelectedItem = cell
                        cell.IsSelected = True
                        row.MoveFocus(New TraversalRequest(FocusNavigationDirection.[Next]))
                        Exit For
                    End If
                End If
            Next
        Next

行错误:数组边界不能出现在类型说明符中。陈述:Dim presenter As DataGridCellsPresenter = GetVisualChild(Of DataGridCellsPresenter(row))

帮助赞赏 abhimoh

4

1 回答 1

0

改变:

   Dim presenter As DataGridCellsPresenter = GetVisualChild(Of DataGridCellsPresenter(row))

'you have created an array with row number of values.

到:

   Dim presenter As DataGridCellsPresenter = GetVisualChild(Of DataGridCellsPresenter)(row)
于 2013-05-28T01:36:18.830 回答