Public Sub Grid_to_DataTable(myGrid As DataGridView, myDataTable As DataTable) Try Dim Cols As Integer = 0 While Cols <= myGrid.ColumnCount - 1 myDataTable.Columns.Add(myGrid.Columns(Cols).Name, myGrid.Columns(Cols).CellType) Cols = Cols + 1 End While myDataTable = myGrid.DataSource Catch ex As Exception MessageBox.Show(ex.Message, "Grid_to_DataTable", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Sub
Dim NewTable As DataTable = DirectCast(DataGridView1.DataSource, DataTable)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)