Gennemløb af datagrid

Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim cm As CurrencyManager = CType(Me.BindingContext(Me.DataGrid1.DataSource), CurrencyManager)
        Dim rowCount As Integer = cm.Count
        'assumes datasource is a datatable...
        Dim colCount As Integer = CType(Me.DataGrid1.DataSource, DataTable).Columns.Count
        Dim row As Integer
        For row = 0 To rowCount - 1
            Dim col As Integer
            For col = 0 To colCount - 1
                Dim cellValue As Object = Me.DataGrid1(row, col)
                Console.Write((cellValue.ToString() + " "))
            Next col
            Console.WriteLine("")
        Next row
    End Sub 'button1_Click
End Class

Lukket