Dim Cols1() As String = {"型号","尺码1","尺码2","尺码3","尺码4","尺码5","尺码6","尺码7","尺码8","尺码9","尺码10","尺码11","尺码12"}
Dim Cols2() As String = {"型号","尺码1","尺码2","尺码3","尺码4","尺码5","尺码6","尺码7","尺码8","尺码9","尺码10","尺码11","尺码12"}
For Each dr1 As DataRow In DataTables("西服尺码表").Select("", "_Sortkey")
Dim ro2 As Row = Tables("导航1子导航2_Table5").AddNew()
ro2("订单号") = ro("订单号")
ro2("项次") = ro("项次")
For i As Integer = 0 To Cols1.Length -1
ro2 (Cols2(i)) = dr1(Cols1(i))
Next
ro2.Save
Next
我的代码是这样的,两个表中,型号是字符,尺码是数字,这个有什么问题吗?为何会提示这样的问题