What's new

Closed Help mga Sir sa magagaling sa VB.net

Status
Not open for further replies.

jayjamil08

Addict
Joined
Dec 28, 2015
Posts
33
Reaction
0
Points
76
Age
30
Paturo namn po codes ng search tapos e fifilter nya sa datagrid using VB.net (bindingSource) :(
 
Search/Filter data grid view


Dim someText As String = TextBox1.Text
Dim gridRow As Integer = 0
Dim gridColumn As Integer = 0
Dim asd As String = 0
For Each Row As DataGridViewRow In DGV1.Rows
For Each column As DataGridViewColumn In DGV1.Columns
Dim cell As DataGridViewCell = (DGV1.Rows(gridRow).Cells(gridColumn))
If cell.Value.ToString.ToLower.Contains(someText.ToLower) Then
cell.Style.BackColor = Color.Green
asd = cell.RowIndex.ToString()
End If
gridColumn += 1
Next column
gridColumn = 0
gridRow += 1
Next Row
MsgBox(asd + 1)
 
Private Sub txt_search_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_search.TextChanged
BindingSource1.Filter = String.Format("{0} LIKE '{1}%'", "user", txt_search.Text)

BindingSource1.Sort = "user ASC"
End Sub

Private Sub txt_search_Validated(sender As System.Object, e As System.EventArgs) Handles txt_search.Validated
If txt_search.Text = String.Empty Then
BindingSource1.RemoveFilter()
Else
BindingSource1.Filter = String.Format("{0} = '{1}'", "user", txt_search.Text)

BindingSource1.Sort = "user ASC"
End If
End Sub
 
Private Sub txt_search_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_search.TextChanged
BindingSource1.Filter = String.Format("{0} LIKE '{1}%'", "user", txt_search.Text)

BindingSource1.Sort = "user ASC"
End Sub

Private Sub txt_search_Validated(sender As System.Object, e As System.EventArgs) Handles txt_search.Validated
If txt_search.Text = String.Empty Then
BindingSource1.RemoveFilter()
Else
BindingSource1.Filter = String.Format("{0} = '{1}'", "user", txt_search.Text)

BindingSource1.Sort = "user ASC"
End If
End Sub
Salamat po sir
 
Status
Not open for further replies.
Back
Top