Dim dt As DataTable = DataTables("总表分装")
Dim Book As New XLS.Book '定义一个Excel工作簿
Book.Sheets.RemoveAt(0)
Dim Sheet As XLS.Sheet
Dim st As XLS.Style = Book.NewStyle '日期列的显示格式
st.Format = "yyyy-MM-dd"
For Each s As String In dt.GetValues("原管理所")
Sheet = Book.Sheets.Add(s) '新建一个sheet
For c As Integer = 0 To dt.dataCols.Count -1 '添加列标题
Sheet(0, c).Value = dt.dataCols(c).Name
If dt.dataCols(c).IsDate Then '如果是日期列
Sheet.Cols(c).Style = st '设置显示格式
End If
Next
Dim drs As List(Of DataRow) = dt.Select("原管理所 = '" & s & "'")
For r As Integer = 0 To drs.Count - 1
For c As Integer = 0 To dt.dataCols.Count -1
If drs(r).isnull(dt.dataCols(c).Name) = False
Sheet(r +1, c).Value = drs(r)(dt.dataCols(c).Name)
Sheet(r +1, 0).Value = r +1
End If
Next
Next
Next
加好友 
发短信
Post By：2021/10/28 12:21:00 [显示全部帖子]
