以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Excel报表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73570)
--  作者：ShotHit
--  发布时间：2015/8/21 17:07:00
--  Excel报表问题
在事例中,Excel报表模块例子，出货单

<出库明细,-9>此处设置时，-9设置成动态值，这个表达式该如何写？（如通过当前关联出库单编号进行关联？）

在系统中，如何可以直接预览要生成的报表呢？
--  作者：大红袍
--  发布时间：2015/8/21 17:10:00
--  

要用代码改，参考这里

 

http://www.foxtable.com/help/topics/2626.htm

 

如果要直接预览，参考这里

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit

 
--  作者：ShotHit
--  发布时间：2015/8/21 17:29:00
--  
好的。非常感谢。

请问这个直接预览代码中的Open(d:\\test.xls)  相对路径怎么应该怎么写？

现在报表模板还是在Attachments这个文件夹中。

我在出库表对应的窗口中新增一个按钮，然后click时间设置为你的那段代码。

那么预览的窗口会在什么地方显示？

貌似我把路径换成Attachments\\出库单.xls后，点击就直接死掉了！
--  作者：大红袍
--  发布时间：2015/8/21 17:31:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Attachments\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
--  作者：ShotHit
--  发布时间：2015/8/21 17:39:00
--  
能够打开Excel预览窗口，请问有办法通过打开一个窗体来展示这个报表效果吗？而不是通过Excel 
--  作者：大红袍
--  发布时间：2015/8/21 17:44:00
--  

你可以尝试把窗口嵌入foxtable

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73007&skin=0