Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim book As new XLS.Book(dlg.FileName)
Dim sheet As XLS.Sheet = book.Sheets(0)
Dim dic As new Dictionary(Of String, String())
For i As Integer = 0 To 3
Dim ary(sheet.Cols.Count-4) As String
For j As Integer = 4 To sheet.Cols.Count - 1
ary(j-4) = sheet(i, j).Text
Next
dic.Add(sheet(i, 3).Text, ary)
Next
For i As Integer = 5 To sheet.Rows.count-1 '从EXCEL的第6行开始循环到最后一行
For j As Integer = 4 To sheet.Cols.Count-1 '从EXCEL的第5列开始循环到最后一列
If sheet(i,j).Text > "" Then '如果EXCEL的单元格有内容
Dim nr As DataRow = DataTables("表a").addnew
nr("FULLSTYLE") = sheet(i, 0).Text
nr("SIZESCALE") = sheet(i, 3).Text
nr("SIZE") = dic(sheet(i, 3).Text)(j-4) ---这行不是太明白！求指点！
nr("TOTAL") = sheet(i,j).text
End If
Next
Next
End If
加好友 
发短信
Post By：2016/4/12 11:01:00 [只看该作者]
，