主题：生成报表

老师，我想实现的是合同已签勾选后打印合同明细，

这样写代码有什么不对吗？

For Each dr As DataRow In DataTables("合同明细").Select ("[合同已签] = True")

Next

Dim Book As New XLS.Book(ProjectPath & "Attachments\合同明细.xlsx")

Dim fl As String = ProjectPath & "Reports\合同明细.xlsx"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

我按您的建议操作，可是即使用<ALL>,还是只是输出鼠标所在的一列。会是什么原因呢？

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\合同明细.xlsx")

Dim fl As String = ProjectPath & "Reports\合同明细.xlsx"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

开始 结束  都要有 <End>

搞不定就上传例子