Hallo,

ich habe eine DataGrid mit DataSet und einer befüllten DataTable. Dort habe ich Spalten und Zeilen eingefügt.
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

Imports System.Windows.Forms.DataGrid
Imports System.Data
Imports System.IO
 
Public Class Form1
 
    Dim ds As DataSet                            'Container fuerTabelle
 
    Private Sub form1_load(ByVal sender As Object, _
                             ByVal e As System.EventArgs) _
                             Handles Me.Load
        'init()
        test("Zeiletest")
    End Sub
 
 
    '*** init() *********************************
    Private Sub init()
 
        Dim dt As New DataTable("meineTabelle")  'Tabelle fuer Inhalt
 
        ds = New DataSet()                   'Container fuer Tabelle
        dt.Columns.Add(New DataColumn("fsdfsd")) 'Tabelle, neue Spalte hinzufügen
        ds.Tables.Add(dt)                    'Container Tabelle hinzufügen
 
        With DataGridView1
            .DataSource = ds
            .DataMember = "meineTabelle"
        End With
 
        For i As Integer = 0 To 10
            updateUI_ImplAddRow("dsd" & i)
        Next
 
        ds.AcceptChanges()
 
 
    End Sub 'Ende updateUI_Impl()
 
 
    '*** updateUI_ImplAddRow() ************************
    Private Sub updateUI_ImplAddRow(ByVal tmp As String)
 
        Dim i As Integer
 
        Try
 
            Dim rw As DataRow = ds.Tables(0).NewRow 'Neue Zeile erstellen
            rw(i) = tmp
            ds.Tables(0).Rows.Add(rw)             'Zeile hinzufuegen
 
        Catch except As Exception
            MsgBox(except.Message)
        End Try
 
    End Sub
End Class

Das klappt auch wunderbar. Nur möchte ich jetzt noch neue Zeilen hinzufügen. Nicht aber immer Zeile für Zeile, sondern am besten gleich eine ganze Tabelle.


Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

   Private Sub addTable(ByVal tmp As String)
 
        Dim newRow As DataRow
 
        Try
 
            mdt = New DataTable("meineTabelle")  'Tabelle fuer Inhalt
            ds = New DataSet()                   'Container fuer Tabelle
 
            mdt.Columns.Add(New DataColumn("Spalte")) 'Spalte hinzufügen
 
            newRow = mdt.NewRow("Zeile")
            mdt.Rows.Add(newRow)
 
            ds.Tables.Add(mdt)                   'Container Tabelle hinzufügen
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "meineTabelle"
 
 
        Catch except As Exception
            MsgBox(except.Message)
        End Try
 
    End Sub

Sinn und Zweck: Ich möchte eine Tabelle anzeigen. Während diese angezeigt wird, sollen die restlichen Daten in einer neuen Tabelle solange geladen werden. Scrollt nun der Anwender, dann wird die neue Tabelle an die alte angefügt.
Kann mir vielleicht jemand helfen?
Danke