【excel报表】非关联表用代码怎么实现关联表数据打印？附上代码麻烦老师指导修正，谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【excel报表】非关联表用代码怎么实现关联表数据打印？附上代码麻烦老师指导修正，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:卷宗管理台帐.xls

此主题相关图片如下：1.png

此主题相关图片如下：2.png

如果更改模版如下后就提示报错非关联表怎么创建细节区呢？

此主题相关图片如下：3.png

此主题相关图片如下：4.png

目前创建了三个关联

卷宗入库与（入库明细涉案款物款物明细）

因扫码录入款物录入系使用清单随机录入所以没有创建关联

现在想实现扫码录入款物录入的数据也随表打印怎么实现呢

借用下面的代码使用实现报错：

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.10.26.1

错误所在事件：窗口,卷宗入库,Button8,Click

详细错误信息：

未将对象引用设置到对象的实例。

Dim Book As New XLS.Book(ProjectPath & "Attachments\卷宗管理台帐.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\" & e.form.controls("TextBox1").text & "卷宗管理台帐.xls"

MessageBox.Show(e.form.controls("TextBox1").text)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

With Sheet.PrintSetting

.PaperKind = 11 '设为A4纸

.LandScape = True '横向打印

.MarginLeft = 20 '左右边距设为20毫米

.MarginRight = 20

.MarginTop = 15 '上下边距设为15毫米

.MarginBottom = 15

End With

book.AddDataTable("卷宗入库","db","Select * f rom {卷宗入库} where 卷宗编号= '" & e.form.controls("TextBox1").text & "'")

book.AddDataTable("扫码录入","db","Select * f rom {扫码录入} where 卷宗编号= '" & e.form.controls("TextBox1").text & "'") '添加子表

book.AddDataTable("款物录入","db","Select * f rom {款物录入} where 案件编号= '" & e.form.controls("TextBox1").text & "'") '添加子表

book.AddRelation("卷宗入库","卷宗编号","扫码录入","卷宗编号") '建立关联

Book.Build() '生成细节区

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

Dim Proc As New Process

Proc.File = fl

Proc.Verb = "Print" '指定动作

Proc.Start()

[此贴子已经被作者于2017/11/3 13:34:55编辑过]

主题：【excel报表】非关联表用代码怎么实现关联表数据打印？附上代码麻烦老师指导修正，谢谢！