Dim lj As String = "D:\2019-6工资表.xlsx"
Dim Book As New XLS.Book(lj)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim bc As Integer = 2 '表头层数
Dim lm As String
Dim dt As DataTable = DataTables("工资表")
Dim nr As DataRow
For n As Integer = bc To Sheet.Rows.Count -1
nr = dt.AddNew()
For i As Integer = 0 To Sheet.Cols.Count - 1
lm = ""
If bc > 1 Then
For x As Integer = 0 To bc - 1
Dim cnu As String = Sheet(x,i).Value
If cnu > "" Then
If lm = "" Then
lm = cnu
Else
If lm <> cnu Then
lm = lm & "_" & cnu
End If
End If
End If
Next
Else
lm = Sheet(0,i).Value
End If
If dt.DataCols.Contains(lm) Then
nr(lm) = Sheet(n,i).Value
End If
Next
nr.save
Next
加好友 
发短信
Post By：2019/8/26 14:35:00 [只看该作者]
此主题相关图片如下：003.png