Private Shared m_dv As DataView
 
Public Sub TableSortieren()
        Dim m_dv As New DataView(ImportTable)
        m_dv.Sort = "ARTNR ASC"
End Sub
 
Public ReadOnly Property ViewASCSort() As DataView
        Get
            Return m_dv
        End Get
End Property
 
Dim oCSonstige as new KlasseB
Me.DataGrid1.DataSource = oSonstige.ViewASCSort

Ralf