蓝版,用下面方式把EXCEL的数据导入到内部表中。EXCEL数据的导入顺序应该不会发生变化吧,是不是可以把EXCEL行号做为主键。
'让内部表行数>=EXCEL表中的行数-------------------------------------------------------↓
Dim shr As Integer = sheet.Rows.Count '取工作表的最大行数
Dim dtr As Integer = dt.DataRows.Count '取内部表最大行数
Dim sdr As Integer = shr - dtr
If shr > dtr Then '如果excel表中总行数大于内部表总行数,则内部表增加相差的行数
dt.AddNew(sdr)
End If
'把EXCEL表中的数据导入到内部表中----------------------------------------------------↓
For n As Integer = 0 To sheet.Rows.count-1
Dim r As DataRow = dt.DataRows(n)
For m As Integer = 0 To nms.Length-1
r(nms(m)) = sheet(n+1,m).value '对应字段顺序必须一致
Next
Next
'-----------------------------------------------------------------------------------↑