MainTable = Tables("开piao数据")
ShowAppWindow("清单导出.XLSx", 5)
Dim dr As String = Forms("fa piao清单导出").Controls("TextBox1").Value
If dr Is Nothing Then
MESSAGEBOX.SHOW("您未录入fa piao号码.")
Return Nothing
End If
Tables("开piao数据").Filter = "[fa piao号码] = '" & dr & "'" '筛选出记录
Dim cnt As Integer = DataTables("开piao数据").Select("[fa piao号码] = '" & dr & "' ").count
If cnt < 1 Then
MESSAGEBOX.SHOW("您录入fa piao号码不存在.")
Return Nothing
End If
Dim Book As New XLS.Book(ProjectPath & "\附件\全电fa piao清单导出.xlsx") '打开模板
Dim fl As String = ProjectPath & "Reports\清单导出.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 11).Value = " < fa piao号码 = '" & dr & "' AND 不含税金额 > 0 > " '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Book1 As New XLS.Book(fl) '在生成具体对账单后设置有效
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Sheet1.Rows.Frozen = 6 '冻结前六行
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2024/7/13 8:34:00 [只看该作者]
