[sirnon]

وجدت هذا الكود هل يصلح

كود :

Private Function dgridViewTods(ByVal dgv As DataGridView) As DataSet
   Dim ds As New DataSet
   Try
        ' Add Table
        ds.Tables.Add("Invoices")

        ' Add Columns
        Dim col As DataColumn
        For Each dgvCol As DataGridViewColumn In dgv.Columns
              col = New DataColumn(dgvCol.Name)
              ds.Tables("Invoices").Columns.Add(col)
        Next

        'Add Rows from the datagridview
        Dim row As DataRow
        Dim colcount As Integer = dgv.Columns.Count - 1
        For i As Integer = 0 To dgv.Rows.Count - 1
             row = ds.Tables("Invoices").Rows.Add
             For Each column As DataGridViewColumn In dgv.Columns
                 row.Item(column.Index) = dgv.Rows.Item(i).Cells(column.Index).Value
             Next
        Next

        Return ds

   Catch ex As Exception

        MsgBox("CRITICAL ERROR : Exception caught while converting dataGridView to DataSet (dgvtods).. " & Chr(10) & ex.Message)
        Return Nothing
   End Try
End Function