[VisualSudio 2008] Filtro dinamico datagridviewer

[Miitiicoo83]

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim CliDV As DataView
CliDV = DataGridView1.DataSource
CliDV.RowFilter = "[Ragione Sociale] LIKE '*" + TextBox1.Text + "*'"
End Sub

nello secifico come hai detto te lo da su:
CliDV = DataGridView1.DataSource nella sezione sopra citata

[SteelRaiden]

In una parte del codice hai lasciato un codice del genere:

DataGridView1.DataSource= {Tuo DataSet}.Tables(0)

se vuoi riposta tutto il form

[Miitiicoo83]

In effetti si, ho trovato il tutto sulla funzione aggiorna. Ho provato a sostituire tables(0) con il nome tabella es ("Clienti") ma quando vado a fare la modifica su un altro form (Funzione doppio click) e rientro, la griglia è vuota.


Imports System.Data.DataView
Public Class Clienti
Private CliDV As DataView
Private m_UserColl As String
Private m_ricerca As String


Public WriteOnly Property Ricerca() As String
Set(ByVal value As String)
m_ricerca = value
End Set
End Property
Public WriteOnly Property UserColl() As String
Set(ByVal value As String)
m_UserColl = value
End Set
End Property
Dim oDal As New DAL
Dim oQueries As New Queries


Private Sub Clienti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'ClientiDataSet.Clienti'. È possibile spostarla o rimuoverla se necessario.
Aggiorna()
'Dichiaro la connessione con il Database in questione e Faccio filtrare la griglia da un DataView
Me.Text = ("Elenco Clienti. Operatore collegato: " + m_UserColl)
Dim CliDV As New DataView(Me.ClientiDataSet.Clienti)
DataGridView1.DataSource = CliDV
ClientiTableAdapter.Fill(ClientiDataSet.Clienti)
End Sub

Private Sub Aggiorna()
Dim ds As New DataSet
ds = oDal.GetDataSet(oQueries.QueryElencoClienti)
Try
DataGridView1.DataSource = ds.Tables(0)
Catch ex As Exception

End Try
End Sub

Private Sub DataGridView1_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
If e.Clicks > 1 Then
Try
Dim frmClientiDettaglio As New ClientDettaglio(CInt(DataGridView1.SelectedRows(0) .Cells(0).Value))
frmClientiDettaglio.ShowDialog()
Aggiorna()
Catch ex As Exception

End Try
End If
End If
End Sub

Private Sub btnEliminaCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminaCliente.Click
Dim Risposta As Integer
Dim conferma As Integer
Risposta = MsgBox("Confermi l'eliminazione del Cliente?", vbQuestion + vbYesNo)
If Risposta = vbYes Then
conferma = MsgBox("Ne se proprio sicuro?", vbQuestion + vbYesNo)
If conferma = vbYes Then
Try
eliminaCliente(CInt(DataGridView1.SelectedRows(0). Cells(0).Value))
Aggiorna()
Catch ex As Exception
End Try
End If
End If
End Sub

Private Sub eliminaCliente(ByVal pId As Integer)
oDal.ExecuteUpdate(oQueries.DeleteCliente(pId))
End Sub

Private Sub TrovaBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Cicla tutte le righe della griglia.
For Each row As DataGridViewRow In Me.DataGridView1.Rows
' Salta la NewRow.
If row.IsNewRow = False Then
' Cicla tutte le celle della riga presa in considerazione.
For Each cell As DataGridViewCell In row.Cells
' Compara il valore ricercato. Si ferma alla prima occorenza, gestisci tu le successive.
If cell.Value.ToString.IndexOf(Me.TextBox1.Text) > -1 Then
' Visualizza la riga.
Me.DataGridView1.FirstDisplayedScrollingRowIndex = cell.RowIndex
' Seleziona la cella.
Me.DataGridView1.CurrentCell = cell
Exit For
End If
Next
End If
Next
End Sub

Private Sub StampaCliBT_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StampaCliBT.Click
Me.Show()
SampElCliente.ShowDialog()
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim CliDV As DataView
CliDV = DataGridView1.DataSource
CliDV.RowFilter = "[Ragione Sociale] LIKE '*" + TextBox1.Text + "*'"

End Sub
End Class

[Miitiicoo83]

Aspe, forse ho risolto, ho modificato la parte aggiorna inserendo quanto segue al posto di quello che avevo:

Dim CliDV As New DataView(Me.ClientiDataSet.Clienti)
DataGridView1.DataSource = CliDV
ClientiTableAdapter.Fill(ClientiDataSet.Clienti)
e funziona. Modifico e quando esco dalla tabella modifica la griglia è aggiornata e non mi da errore.

Grazie mille!

[SteelRaiden]

ecco si io il table adapter non l'ho mai usato ma a quanto pare il Fill lo collega alla datagridview. così hai risolto

[Miitiicoo83]

Si infatti, sei stato gentilissimo.