试试
Dim i As Integer = 0
Dim lst As new List(of Integer)
For c As Integer = 0 To dt1.DataCols.Count-1
Dim ar() As String = dt1.DataCols(c).name.split("_")
If ar.Length = 1 Then
lst.Add(c)
Sheet(0, c).Value = ar(0)
Else
If ar.length > i Then i=ar.length
For j As Integer = 0 To ar.length - 1
Sheet(j, c).Value = ar(j)
Next
End If
Next
For k As Integer = 0 To i
Dim m As Integer = 0
For n As Integer = 1 To Sheet.Cols.count - 1
If lst.Contains(n) Then
If n-1 > m Then
Sheet.MergeCell(k,m,1,n-m)
End If
m=n
Continue For
End If
If Sheet(k, n-1).Value <> Sheet(k, n).Value Then
If n-1 > m Then
Sheet.MergeCell(k,m,1,n-m)
End If
m=n
End If
Next
Next
For Each k As Integer In lst
Sheet.MergeCell(0,k,i,1)
Next
For r As Integer = 0 To dt1.DataRows.Count - 1 '填入数据
For c As Integer = 0 To dt1.DataCols.Count-1
Sheet(r+i +1, c).Value = dt1.datarows(r)(dt1.DataCols(c).name)
Next
Next
Book.Save("c:\人数统计.xls")
加好友 
发短信
Post By：2020/3/15 20:36:00 [显示全部帖子]
