COMO PESQUISAR NO DATAGRIDVIEW VB 2010
Estou tentando realizar uma pesquisa num DataGridView, por exemplo: Tenho um form onde é realizada uma venda, quando chegar no Código do produto por exemplo o usuario tecla F2 para Pesquisar/Buscar o código desejado abro outro form onde tenho um textbox e um DataGridView, estou querendo que no textbox, o usuário digite a descrição do produto (qualquer seguimento do nome ou seja Café ou então afé e etc.), localize tal item no Grid, obviamente o Grid já populado. Para exemplificar segue o código que estou utilizando.
Citação:
Imports System
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Math
Imports System.Windows.Forms
Public Class frmPesquisa_Busca
Dim lJanelaChamadora As New Form
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If (m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32() = SC_MOVE) OrElse (m.Msg = WM_NCLBUTTONDOWN AndAlso m.WParam.ToInt32() = HTCAPTION) Then
Return
Else
MyBase.WndProc(m)
End If
End Sub
Private Sub frmPesquisa_Busca_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim oRAngle As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
Dim oGradientBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(oRAngle, Color.DarkSeaGreen, Color.White, Drawing.Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(oGradientBrush, oRAngle)
End Sub
Private Sub frmPesquisa_Busca_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If gCN.State = ConnectionState.Open Then gCN.Close()
gCN.Open()
gSQL = [Ô]Select * from tbProdutosVenda[Ô]
gRSTemp.Open(gSQL, gCN, 1, 2)
dgvDadosCadastrados.Columns.Add([Ô]COD_PROD[Ô], [Ô]CÓD.[Ô])
dgvDadosCadastrados.Columns.Add([Ô]DES_PROD[Ô], [Ô]DESCRIÇÃO[Ô])
dgvDadosCadastrados.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
While Not gRSTemp.EOF()
dgvDadosCadastrados.Rows.Add(Format(Val(gRSTemp.Fields([Ô]PROV_CODIGO[Ô]).Value), [Ô]00-00[Ô]), gRSTemp.Fields([Ô]PROV_DESCRICAO[Ô]).Value)
gRSTemp.MoveNext()
End While
Catch ex As Exception
MsgBox(gMensagem & vbCrLf & ex.Message, MsgBoxStyle.Critical, [Ô]ERRO[Ô])
End Try
End Sub
End Class
Bom este é parte dele, esclarecendo, o usuário não terá que pressionar botão algun para realizar a busca no Grid, simplesmente digitar e ser realizada uma busca dinamica.
A quem ajudar-me agradeço!
Obrigado
OK!
Obrigado!