Visual Basic.NET - Copiar de DataTable a DataGridView sin borrar registros anteriores,

' la consulta al servidor

Select Campo1, Campo2, Campo3

From Tabla

Where Campo1 = @valor

'lleno el datatable con la consulta

DataTable1 = TableAdapter1.GetDataBy1(valor)

'de esta manera refresca el DataGridView y vuelve a cargar todo nuevamente,

DataGridView1.DataSource = DataTable1

For R As integer = 0 to DataTable1.Rows.Count – 1

  DataGridView1.Rows.Add(DataTable1.Rows(UnCampo), DataTable1.Rows(UnOtroCampo), …. )

Next

Public Class FProba

    Private Sub DataGridView_Iniciar()

        If DataGridView1.RowCount > 0 Then

            DataGridView1.Rows.Clear()

            DataGridView1.Columns.Clear()

        End If

        DataGridView1.Columns.Add("Razon_Social", "Razon_Social")

        DataGridView1.Columns.Add("Materia_Prima", "Materia_Prima")

        DataGridView1.Columns.Add("Gasto_Fabric", "Gasto_Fabric")

        DataGridView1.Columns.Add("Neto", "Neto")

        DataGridView1.AllowUserToAddRows = False

        DataGridView1.Rows.Add("ACEROS", "8000.00", "0", "0")

        DataGridView1.Rows.Add("FAENA", "0", "1500", "0")

        DataGridView1.Rows.Add("AGUERO", "0", "0", "1800.00")

    End Sub

    Private Sub FProba_Load(sender As Object, e As EventArgs) Handles Me.Load

        DataGridView_Iniciar()

    End Sub

    Private Sub BReIniciar_Click(sender As Object, e As EventArgs) Handles BReIniciar.Click

        DataGridView_Iniciar()

    End Sub

    Private Sub BProbar_Click(sender As Object, e As EventArgs) Handles BProbar.Click

        Dim MiDT As New DataTable

        MiDT.Columns.Add("Razon_Social")

        MiDT.Columns.Add("Materia_Prima")

        MiDT.Columns.Add("Gasto_Fabric")

        MiDT.Columns.Add("Neto")

        MiDT.Rows.Add("ACEROS_2", "22.00", "22", "22")

        MiDT.Rows.Add("FAENA_2", "22", "33", "0")

        MiDT.Rows.Add("AGUERO_2", "33", "0", "33.00")

        For R As Integer = 0 To MiDT.Rows.Count - 1

            DataGridView1.Rows.Add(MiDT.Rows(R).Item("Razon_Social"), MiDT.Rows(R).Item("Materia_Prima"), MiDT.Rows(R).Item("Gasto_Fabric"), MiDT.Rows(R).Item("Neto"))

        Next

    End Sub

End Class

Select CampoAAA, CampoBBB, CampoCCC

From Tabla1

Where CampoAAA = @valor

'crea las columnas en el DataGridView

Sub DataGridView1Iniciar

If DataGridView1.RowCount > 0 then

DataGridView1.Rows.Clear()

DataGridView1.Columns.Clear()

End If

DataGridView1.Columns.Add(“CampoAAA”, “CampoAAA”)

DataGridView1.Columns.Add(“CampoBBB”, “CampoBBB”)

DataGridView1.Columns.Add(“CampoCCC”, “CampoCCC”)

End Sub

Sub CodigoAgrega

'lleno el datatable con la consulta

DataTable1 = TableAdapter1.GetDataBy1(valor)

'código agrega campos

For R As Integer = 0 To DataTable1.Rows.Count – 1

DataGridView1.Rows.Add(DataTable1.Rows(R).Item(“CampoAAA”),etc…)

End Sub