|
' vedi paginaIndex. vb8 ' ricerca per anno I = InputBox("Digita Anno da ricercare", "ricerca Anno", Year(Now)) If Val(I) <> 0 Then I = PaginaIndexBindingSource.Find("Anno", I) PaginaIndexBindingSource.Position = I LblStatus.Text = PaginaIndexBindingSource.Position & "/" & PaginaIndexBindingSource.Count - 1 LeggiDettaglio(True) End If |