以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  在导出到Excel时期，如何将数据导出到多个工作溥  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153344)
--  作者：lanbor
--  发布时间：2020/8/7 16:42:00
--  在导出到Excel时期，如何将数据导出到多个工作溥
本页地址：http://www.foxtable.com/webhelp/topics/1148.htm

请教专家：参考以上样本（示例三）；
在导出到Excel时期，如何将数据导出到同一个XLS文件的多个工作溥？

假如：我要让将查询到的“订单主表”写到Sheet1";
        我要让将查询到的“订单出货明细”写到Sheet2";

请帮忙指点一下语句如何在样本上增加？
谢谢！
[此贴子已经被作者于2020/8/7 16:43:54编辑过]
--  作者：有点蓝
--  发布时间：2020/8/7 16:54:00
--  
比如

Dim cmd As New SQLCommand
\'cmd.ConnectionName = "数据源名称" 
Dim nms() As String = {"产品","数量","单价","金额","日期"} 
cmd.CommandText = "Select 产品,数量,单价, 数量 * 单价 As 金额,日期 From {订单主表} Where 客户 = \'CS01\' "
Dim dt As DataTable = cmd.ExecuteReader()
Dim Book As New XLS.Book 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle 
Style.BackColor = Color.Red 
For c As Integer = 0 To nms.Count -1 
    Sheet(0, c).Value = nms(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1 
    For c As Integer = 0 To nms.Count -1 
        Sheet(r +1, c).Value = dt.DataRows(r)(nms(c))
    Next
Next

Dim nms2() As String = {"第一列","第二列"} 
cmd.CommandText = "Select 第一列，第二列 From {订单出货明细} Where 客户 = \'CS01\' "
dt = cmd.ExecuteReader()
Book.Sheets.Add() \'增加一个工作表
Sheet = Book.Sheets(1)
For c As Integer = 0 To nms2.Count -1 
    Sheet(0, c).Value = nms2(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1 
    For c As Integer = 0 To nms2.Count -1 
        Sheet(r +1, c).Value = dt.DataRows(r)(nms2(c))
    Next
Next

\'打开工作簿
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
--  作者：lanbor
--  发布时间：2020/8/7 17:17:00
--  
谢谢专家指点
--  作者：lanbor
--  发布时间：2020/8/7 17:26:00
--  Table表的SQLTable 类型中的日期时间列格式定义？
请教：
Table1表是SQLTable 类型
SQL查询后得到的：扫描日期是日期格式，没有时间的。
这个:tables(e.form.name & “_Table1")  的”扫描日期“列，
如何定义为”日期时间格式“？
--  作者：有点蓝
--  发布时间：2020/8/7 17:29:00
--  
http://www.foxtable.com/webhelp/topics/1611.htm

datatables(e.form.name & “_Table1").DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)