主题：一次性多表导出

Dim dt As DataTable = DataTables("订单")

Dim Book As New XLS.Book '定义一个Excel工作簿

Book.Sheets.RemoveAt(0)

Dim Sheet As XLS.Sheet

For Each s As String In dt.GetValues("客户")

    Sheet  = Book.Sheets.Add(s) '新建一个sheet

    

    For c As Integer = 0 To dt.Cols.Count -1 '添加列标题

        Sheet(0, c).Value = dt.Cols(c).Name

    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.Cols.Count -1

            Sheet(r +1, c).Value = drs(r)(c)

        Next

    Next

Next