Torna al Thread
Try
ScaricoDataGridView.DataSource = Me.MagazzinoGommeDataSet.Scarico
Dim vdatFiltra As New DataView
Dim strFiltro As String
Dim strFiltro1 As String
strFiltro = TextBox2.Text 'InputBox("Digitare la stringa da cercare", "Criterio di filtro")
strFiltro1 = TextBox3.Text
With vdatFiltra
.Table = MagazzinoGommeDataSet.Tables(1)
.RowFilter = "data>=#" & strFiltro & "# and data<=#" & strFiltro1 & "#"
.Sort = "data"
End With
ScaricoDataGridView.DataSource = vdatFiltra
' MsgBox("Qualora si intende eseguire una nuova ricerca, per il corretto allineamento dei dati del database, si consiglia di chiudere e riaprire questa maschera")
Catch ex As Exception
MsgBox(ex.Message)
End Try