'If Vars("quot_code") = "" Or Vars("quot_code")=Nothing Then
' messagebox.show("请选定报价单后再点打印!","提示:")
' Return
'Else
' Dim s1, fl, f2 As String
' Vars("_Str01") = "综合信息"
' If Vars("_Print_staute") = "导出电子表" Then
' fl = ProjectPath & "Reports\" & Vars("quot_code") & "独立解决方案.xls"
' f2 = "Gooxi_Quote_CH.xls"
' Else
' fl = ProjectPath & "Reports\" & Vars("quot_code") & "StandaloneSolutions.xls"
' f2 = "Gooxi_Quote_EN.xls"
' End If
' Dim Book As New XLS.Book(ProjectPath & "Attachments\" & f2)
' Dim Style As Xls.Style = book.NewStyle
' Style.BackColor = Color.Red
' book.AddDat aTable("Product_Order1", "GX_DBS", "Select * fr om {Product_Order} where quot_code= '" & Vars("quot_code") & "'") '添加报价主记录
'--------添加报价单机种记录
' book.AddDat aTable("Product_amount1", "GX_DBS", "Select * fr om {Product_Amount} where quot_id= '" & Vars("quot_code") & "' order by [qu_SN]")
' book.AddRe lation("Product_Order1", "quot_code", "Product_amount1", "quot_id") '建立关联
'---------添加各机种包括的配件明细
' book.AddDat aTable("Product_Entry1", "GX_DBS", "Select * fr om {Product_Entry} where quot_id= '" & Vars("quot_code") & "' and [piecewise] >" & 0 & " order by line_Identify,sequence")
' book.AddRe lation("Product_Order1", "quot_code", "Product_Entry1", "quot_id") '建立关联
' Book.Build() '生成细节区
' Book.Save(fl) '保存工作簿
' Dim Proc As New Process '打开工作簿
' Proc.File = fl
' Proc.Start()
'End If
加好友 
发短信
Post By：2023/7/14 20:51:00 [显示全部帖子]
此主题相关图片如下：表abc结构.png