Поиск в datagridview в приложении Windows VB.NET

Question

Мне нужно фильтровать datagridview с помощью текстового поля. Код ниже, который я использую для заполнения функции gridview.getdata класса db, возвращает datatable.

Я не использую свойство datasource gridview, вместо этого я подаю gridview с помощью цикла.

Я могу выполнить поиск с использованием свойства datasource и dataview, но я не должен заполнять datagridview непосредственно из свойства datasource.

Sub griddesgn() 
    DataGridView1.Columns.Clear() 
    DataGridView1.Rows.Clear() 
    DataGridView1.Columns.Add("crime", "crime") 
    DataGridView1.Columns.Add("actname", "actname") 
    DataGridView1.Columns.Add("section", "section") 
    DataGridView1.Columns.Add("description", "description") 
End Sub 

Private Sub TEST_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    griddesgn() 
    Dim DBOBJ As New db 
    Dim DTT As DataTable = DBOBJ.getdata("SELECT crime,actname,section,description from natureofcomplaint_women") 

    If DTT.Rows.Count > 0 Then 
     For i As Integer = 0 To DTT.Rows.Count - 1 
      DataGridView1.Rows.Add() 
      DataGridView1.Rows(i).Cells("crime").Value = DTT.Rows(i).Item("crime") & "" 
      DataGridView1.Rows(i).Cells("actname").Value = DTT.Rows(i).Item("actname") & "" 
      DataGridView1.Rows(i).Cells("section").Value = DTT.Rows(i).Item("section") & "" 
      DataGridView1.Rows(i).Cells("description").Value = DTT.Rows(i).Item("description") & "" 
     Next 
    End If 

End Sub 

Answer 1

Используйте WHERE заявление в вашем SQL Query

"SELECT crime,actname,section,description from natureofcomplaint_women WHERE crime = " & txtSearch.text 

(Если вы хотите найти на преступления.) Изменение к вашим потребностям. Просто повторите DataGrid заполнения вы использовали выше, но с altereted запроса SQL каждый раз, когда вы набираете/нажать кнопку поиска

Answer 2

Я все еще думаю, что лучше, чтобы связать ...

Sub griddesgn() 
DataGridView1.Columns.Clear() 
DataGridView1.Rows.Clear() 
DataGridView1.Columns.Add("crime", "crime") 
DataGridView1.Columns.Add("actname", "actname") 
DataGridView1.Columns.Add("section", "section") 
DataGridView1.Columns.Add("description", "description") 
End Sub 

Private Sub TEST_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    griddesgn() 
    Dim DBOBJ As New db 
    Dim DTT As DataTable = DBOBJ.getdata("SELECT crime,actname,section,description from natureofcomplaint_women") 

    Dim source1 as New BindingSource() 
    source1.DataSource = DTT 
    source1.Filter = "crime = '" & textboxtCrime.text & "'" 
    DataGrideView1.DataSource = source1 

End Sub 

Answer 3

Sub griddesgn() 
    DataGridView1.Columns.Clear() 
    DataGridView1.Rows.Clear() 
    DataGridView1.Columns.Add("crime", "crime") 
    DataGridView1.Columns.Add("actname", "actname") 
    DataGridView1.Columns.Add("section", "section") 
    DataGridView1.Columns.Add("description", "description") 
End Sub 

Private Sub TEST_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    griddesgn() 
    Dim DBOBJ As New db 
    Dim DTT As DataTable = DBOBJ.getdata("SELECT crime,actname,section,description from natureofcomplaint_women") 

    If DTT.Rows.Count > 0 Then 
     For i As Integer = 0 To DTT.Rows.Count - 1 
     If (DTT.Rows(i).Item("Crime").Contains(txtCrimeFilter.Text) AND & _ 
       (DTT.Rows(i).Item("actname").Contains(txtActnameFilter.Text) AND & _ 
       (DTT.Rows(i).Item("section").Contains(txtSectionFilter.Text)  AND & _ 
       (DTT.Rows(i).Item("description").Contains(txtDescriptionFilter.Text) 
       DataGridView1.Rows.Add() 
       DataGridView1.Rows(i).Cells("crime").Value = DTT.Rows(i).Item("crime") & "" 
       DataGridView1.Rows(i).Cells("actname").Value = DTT.Rows(i).Item("actname") & "" 
       DataGridView1.Rows(i).Cells("section").Value = DTT.Rows(i).Item("section") & "" 
       DataGridView1.Rows(i).Cells("description").Value = DTT.Rows(i).Item("description") & "" 
     End If 
    Next 
End If 

End Sub