[VB 2005] Zoekfunctie datagridview

[Verwijderd]

Ik ben al langere tijd bezig met het maken van een zoekfunctie in een datagridview.

Ik heb dus een datagridview die gevuld is op basic van een datasource (bindingsource). Nu wil ik door de data heengaan aan de hand van de zoekfunctie.

Wanneer ik dus invul wat er gezocht moet worden, moet er gekeken worden in ALLE records en in ALLE columns van de data. Ik wil dus echt in alle velden zoeken. Wanneer ik dan verder zou zoeken zou 'hij' naar het volgende resultaat kunnen gaan.

Ik ben al een tijdje bezig met de bindingsource.find e.d. en heb al heel wat gezocht op google, GoT en andere VB fora maar kom er gewoon niet uit. Is er iemand die kan zeggen hoe ik dit aan kan pakken?

[MTWZZ]

Als je een BindingSource gebruikt zou ik de Find method gebruiken en dan de DataPropertyName van elke kolom in je DataGridView pakken.
Ongeveer als zo (even C# want mijn VB is nogal roestig):

C#:

List<int> matches = new List<int>();
BindingSource bindingSource = new BindingSource(dataSet1, null);

foreach(DataGridViewColumn column in dataGridView.Columns) {
    matches.Add(matches.Find(column.DataProperyName, findString);
}

Probleem is alleen dat dit maar 1 match teruggeeft en alleen de exacte match.

[sopsop]

Ik denk dat je zolang je met alleen maar boundfield columns werkt je met de datasource uit de voeten moet kunnen. Zodra je mutaties gaat uitvoeren op je bound-data d.m.v. template columns wordt het een stuk lastiger.

Je zou in dat geval gebruik kunnen maken van het OnRowCreated-event (wel met allow-paging = "false"). Handig is iig anders.

oei. Ik ben er even vanuit gegaan dat je een asp.net gridview bedoelde. Of een windows-app gridview ook zo werkt weet ik niet...

[ Voor 16% gewijzigd door sopsop op 21-08-2007 08:50 ]

[Verwijderd]

Ik heb het inmiddels opgelost. Even ter info:

Visual Basic .NET:

Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
If e.KeyCode = Keys.F3 Then
            Call searchInDataGridView(Me.DataGridView1)
End If
End Sub

Public Function searchInDataGridView(ByVal datagrid As DataGridView)

        Dim searchText As String
        Dim regExp As Regex
        Dim regExpMatch As Match
        Dim regEx1 As String
        Dim regEx2 As String
        Dim regEx3 As String

        searchText = InputBox("Zoeken op: ", "Zoeken in data.")

        If searchText = "" Then Exit Function

        regEx1 = "(?<one>.*)"
        regEx2 = "(?<two>" & searchText.ToUpper & ")"
        regEx3 = "(?<three>.*)"
        regExp = New Regex(regEx1 & regEx2 & regEx3)

        Dim x As Integer = 0

        While x < datagrid.Rows.Count
            Dim y As Integer = 0
            While y < datagrid.Rows(x).Cells.Count
                Dim c As DataGridViewCell = datagrid.Rows(x).Cells(y)
                If Not (c.Value Is DBNull.Value Or c.Value Is Nothing) Then
                    If CType(c.Value, String) <> "" Then
                        regExpMatch = regExp.Match((CType(c.Value, String).ToUpper))
                        If regExpMatch.Success Then
                            'If CType(c.Value, String).ToUpper = searchText.ToUpper Then
                            datagrid.Rows(x).Cells(y).Selected = True
                            datagrid.CurrentCell = datagrid.Rows(x).Cells(y)
                            If MsgBox("Gevonden. Volgende?", MsgBoxStyle.OkCancel) =             MsgBoxResult.Cancel Then Exit Function
                            'End If
                        End If
                    End If
                End If
                System.Math.Min(System.Threading.Interlocked.Increment(y), y - 1)
            End While
            System.Math.Min(System.Threading.Interlocked.Increment(x), x - 1)
        End While

        MsgBox("Zoeken voltooid!")

    End Function

[ Voor 3% gewijzigd door Verwijderd op 24-08-2007 09:39 ]