Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
SearchPO(Me.txtSearch.text) ' เขียนไว้เป็น sub แล้วให้เรียกใช้ตอน txtchange
End Sub
ของผมทำประมาณนี้นะครับ เขียน ส่วนที่ใช้ค้นหาแล้วแสดงมาใน gridview แยกเป็น sub ดังนี้
Code (VB.NET)
Private Sub SearchPO(ByVal Search As String)
If Not sqlcnn.State = ConnectionState.Open Then
sqlcnn.Open()
End If
Dim sqlPO As String = "SELECT * FROM tbl_computer WHERE CPU LIKE '%" & Search & "%' "
Dim daPOAs New MySqlDataAdapter(sqlComputer, sqlcnn)
Dim dtPO As New DataTable
daPO.Fill(dtPO)
Me.dgvPO.DataSource = dtPO
sqlcnn.Close()
End Sub
Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
SearchPO(Me.txtSearch.text) ' เขียนไว้เป็น sub แล้วให้เรียกใช้ตอน txtchange
End Sub
โดยที่ซับ จะรับ parameter 1 ตัวคือข้อความจากช่องที่เราจะค้นหา
ทีนี้เมื่อผม เอา sub มาวางใน textchange ทุกครั้งที่มีการพิมพ์ข้อความ หรือ ลบ ข้อความ มันก็จะเรียกใช้ sub ที่เขียนไว้ครับ