ho provato a fare questo... ma non ho i dati in tabella
Dim openFileDialog1 As New OpenFileDialog() openFileDialog1.Filter = "Text File|*.txt|Excel Spreadsheet|*.xls" openFileDialog1.Title = "Open File..." Dim line() As String Dim J As Integer = 0 Dim K As Integer = 0 If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(openFileDialog1.FileName) line = myStream.ReadToEnd.Split("|") myStream.Close() Do While J < line.Count() Dim lStringReader As New System.IO.StringReader(line(J)) PEGASODataSet.DataTable1.Rows.Add(lStringReader) J = J + 1 Loop PEGASODataSet.DataTable1.AcceptChanges() TblListaOrdiniSigmaDataGridView.DataSource = Me.PEGASODataSet.DataTable1