主题：填充数据的时候可否不按照顺序填充？

Select加个排序试试

Dim Names() As String  = {"排序列1", "排序列2","排序列3","排序列4","排序列5"}
For Each Name As String In Names
    For Each dr1 As DataRow In DataTables("jinzhengbe").Select("[id] is not Null",name & " DESC")
        Dim dr2 As DataRow = DataTables("cai").AddNew()
        Dim dr3 As DataRow = DataTables("tianma").AddNew()
        Dim dr4 As DataRow = DataTables("new").AddNew()
        Dim dr5 As DataRow = DataTables("hongfu").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
            dr3(Cols3(i)) = dr1(Cols1(i))
            dr4(Cols4(i)) = dr1(Cols1(i))
            dr5(Cols5(i)) = dr1(Cols1(i))
        Next
    Next
Next