主题：临时表支持excel模版吗?

支持，一样，用代码：

 

http://help.foxtable.com/topics/1145.htm

 

临时表不是也有名称的吗？
如果名称不固定，可以通过代码修改模板，加粗的代码根绝需要调整编写。
 
 
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(3,0) = "<临时表名>"
Sheet(6,0) = "<临时表名>"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

可以

既然表名固定，设计模板的时候，表名直接指定为<运作单窗口>即可。

打印代码：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\模板名称.xls")
Dim fl As String = ProjectPath & "Reports\模板名称.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

正常，注意文件和路径，如果不正确，就会出现你说的的错误：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\模板名称.xls")

看看吗，你的模板，有没有同名的表，_Sheet和Sheet也会被认为同名。

我知道了，你的表名不是“运作单窗口”，因为：

 

Tables("运作单_Table1").DataSource = g.BuildDataSource()

 

所以表名应该是：运作单_Table1

 

慎重起见，用MessageBox显示一下表名：

Dim g As New CrossTableBuilder("运作单窗口", DataTables("运作单"))
g.HGroups.AddDef("制单ID")
g.HGroups.AddDef("递交面料")
g.HGroups.AddDef("递交辅料")
g.HGroups.AddDef("递交样卡")
g.HGroups.AddDef("款号")
g.HGroups.AddDef("英文款名")
g.HGroups.AddDef("中文款名")
g.HGroups.AddDef("类别")
g.HGroups.AddDef("面辅料ID")
g.HGroups.AddDef("面辅料名称")
g.HGroups.AddDef("用于部位")
g.HGroups.AddDef("面辅料单耗")
g.HGroups.AddDef("供应来源")
g.VGroups.AddDef("颜色")
g.Totals.AddDef("配色说明", "配色说明")
Tables("运作单_Table1").DataSource = g.BuildDataSource()

MessageBox.Show(Tables("运作单_Table1").DataTable.Name)