版主，我按照楼上设置了打印模板，打印按钮代码如下。
为什么打印结果 明细，显示的是全部的，不是应该对应的明细呢。
关联字段没有错的，我在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()
加好友 
发短信
Post By：2017/12/27 17:44:00 [显示全部帖子]
