是我糊涂了,应该这样:
Dim dt As DataTable = DataTables("表A")For Each dr As DataRow In dt.Select("","_SortKey")Next