Er det muligt at gennemløbe et dataset?

Du kan iterere ovet Tables og for hver DataTable kan du iterere over Rows.

Kan du komme med et eksempel på at iterere over tables?

Hvis man ved hvilken Row jeg gerne vil have fat i er det vist ikke et problem...

Følgende klippet fra docs viser vist alt:

private void PrintRows(DataSet myDataSet){
  // For each table in the DataSet, print the row values.
  foreach(DataTable myTable in myDataSet.Tables){
      foreach(DataRow myRow in myTable.Rows){
        foreach (DataColumn myColumn in myTable.Columns){
            Console.WriteLine(myRow[myColumn]);
        }
      }
  }
}

Takker - smid lige et svar...

svar

Private Sub PrintRows(ByVal myDataSet As DataSet)
        Dim Tal As Integer
        For Each myTable As DataTable In myDataSet.Tables
            For Each myRow As DataRow In myTable.Rows
                'For Each myColumn As DataColumn In myTable.Columns
                Tal = CType(myDataSet.Tables(0).Rows(0)(0), Integer)
                MsgBox(Tal)
                ' Console.WriteLine(myRow(myColumn))
            Next
            'Next
        Next
        'Next
    End Sub


Hvad dælen er der galt med denne. Har omskrevet din kode fra før, så jeg nu synes den burde gøre det jeg gerne vil have den til: At udskrive Id'erne fra det dataset der er valgt. Det gør den ikke. Den udskriver første Id tre gange. Det er sådan set rigtigt nok, da der i eksemplet er tre varer, men de har ikke samme id.
Kan du give mig et svar på hvad det er jeg gør forkert, da jeg ikke lige selv kan se fejlen...

Koden uden '
Private Sub PrintRows(ByVal myDataSet As DataSet)
        Dim Tal As Integer
        For Each myTable As DataTable In myDataSet.Tables
            For Each myRow As DataRow In myTable.Rows
           
            Tal = CType(myDataSet.Tables(0).Rows(0)(0), Integer)
            MsgBox(Tal)
           
            Next
        Next
End sub

For Each og bruge af (0) virker vel ike så godt sammen !?

Nej det gør det ikke.

Løsnngen synes jeg ikke er så pæn, men den virker!

Tak endnu engang

Private Sub PrintRows(ByVal myDataSet As DataSet)
        Dim SalgsordrelinieId As Integer
        Dim AntalLinier As Integer
        For Each myTable As DataTable In myDataSet.Tables
            For Each myRow As DataRow In myTable.Rows
                SalgsordrelinieId = CType(myDataSet.Tables(0).Rows(AntalLinier)(0), Integer)
                MsgBox(SalgsordrelinieId)
                AntalLinier = AntalLinier + 1
            Next
        Next
    End Sub

Ud skift din For Each løkke med en almindelig For løkke, så er tælleren
mere naturlig !

Ja det hjælper lidt på det...!

takker