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

Dim Cols1() As String = {"costPrice","color","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","addtime","ccc","lei"}

Dim Cols2() As String = {"costPrice","color","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","addtime","ccc","lei"}

Dim Cols3() As String = {"costPrice","color","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","addtime","ccc","lei"}

Dim Cols4() As String = {"costPrice","color","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","addtime","ccc","lei"}

Dim Cols5() As String = {"costPrice","color","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","addtime","ccc","lei"}

 

For Each dr1 As DataRow In DataTables("jinzhengbe").Select("[id] is not Null")

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

DataTables("jinzhengbe").Save()

DataTables("cai").Save()

Dim po As String=user.name

Dim Book As New XLS.Book(ProjectPath & "Attachments\导入格式.xls")

Book.Build()

Book.Save("d:\cai\" & Date.Today & "导入格式.xls")