后台打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、book.AddRelation("出库","出库单编号","出库明细","出库单编号")

这里的如果有多个关联列，可以用一个字符型数组表示。字符型数组具体怎么写。

例如： "出库","出库单编号" "编号" "单号"

"出库明细","出库单编号" "编号""单号"

2、建立了关联后

打印的报表是否按照关联去打印。

比如我加载了出库单号为 1-10号的出库单

打印出10个出库单来，分别对应相应的出库明细

3、后台图片具体如何调用插入打印。

Dim ary1() As String = {"出库单编号","编号","单号"}
Dim ary2() As String = {"出库单编号","编号","单号"}
book.AddRelation("出库",ary1,"出库明细",ary2)

2、是的，你测试一下便知。

3、是图片列吗？为什么一定要后台打印？你把数据加载出来不行？更简单方便。

版主，我按照楼上设置了打印模板，打印按钮代码如下。

为什么打印结果明细，显示的是全部的，不是应该对应的明细呢。

关联字段没有错的，我在table中显示正常。

同一个部件计划单号下，部件计划编号相同。通过部件清单码来关联，不同的部件，显示不同的明细。

Dim tb2 As Table = Tables("部件计划_table6")

Dim cur,cur1,cur2 As String

cur1 = tb2.current("部件计划单号")

cur = tb2.current("部件计划编号")

Dim ary1() As String = {"部件计划单号","部件计划编号","部件清单码"}

Dim ary2() As String = {"部件计划单号","部件计划编号","部件清单码"}

Dim Book As New XLS.Book(ProjectPath & "Attachments\部件派工.xls")

Dim fl As String = ProjectPath & "Reports\部件派工.xls"

book.AddDataTable("部件","s","Se lect * from {部件计划清单} where 部件计划单号= '" & cur1 & "' and 部件计划编号= '" & cur & "' ") '添加父表

book.AddDataTable("明细","s","S elect * from {部件计划明细清单} where 部件计划单号= '" & cur1 & "' and 部件计划编号= '" & cur & "' ") '添加子表

book.AddRelation("部件",ary1,"明细",ary2) '建立关联

Book.Build() '生成细节区

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

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

请上传具体例子测试。

后台调用的不好上传例子。版主。

现在的问题是我通过关键字段，进行了绑定。打印的明细是全部的明细。

做一个项目，单独做两个表，和excel模板一起发上来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目9.rar

是有问题，改成这样的代码处理。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目9.zip

主题：后台打印