Foxtable(狐表)用户栏目专家坐堂 → 输出固定格式报表


  共有998人关注过本帖树形打印复制链接

主题:输出固定格式报表

帅哥哟,离线,有人找我吗?
wumingrong-2
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
输出固定格式报表  发帖心情 Post By:2024/10/18 11:53:00 [只看该作者]

 使用以下命令、符合条件的有很多清单、但是输出却只有一条记录;公式错在哪里啦?

 

 

Dim dt1 As Date
dt1 = Date.Now
    

    
    For i As Integer = 0 To Tables("清单表").Rows.count - 1
        Tables("清单表").Position = i
        Dim r As Row = Tables("清单表").Rows(i)
        Dim Book As New XLS.Book(ProjectPath & "Attachments\清单表.xlsx") '打开模板


            Dim fl As String = "D:\拆分\清单表\" & r("网格") & "网格(清单).xls" '指定目标文件
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Book.Build() '生成报表
            Book.Save(fl)
             
    Next

MessageBox.show("完成【各站段低值易耗品台账表】输出工作!!!", "非常关键提醒")

 

 


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/18 12:14:00 [只看该作者]

如果要输出关联表,参考:http://www.foxtable.com/webhelp/topics/0204.htm

 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong-2
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/12/2 16:39:00 [只看该作者]

        For i As Integer = 0 To Tables("拆分条件表").Rows.count - 1
           
            Tables("拆分条件表").Position = i
            Dim r As Row = Tables("拆分条件表").Rows(i)
            Dim Book As New XLS.Book(ProjectPath & "Attachments\"& e.Form.Controls("输出表模板名称").text) '打开模板
            'Dim fl As String = ProjectPath & "Reports\" & r("列表项目1") & ".xls" '在当前目录下输出报表
           
           
            Dim fl As String = e.Form.Controls("输出文件路径").text   & e.Form.Controls("输出文件名称").text  & e.Form.Controls("左符号").text &  r(e.Form.Controls("拆分条件表1").text)  &   e.Form.Controls("中符号").text  &   r(e.Form.Controls("拆分条件表2").text) &  e.Form.Controls("右符号").text  & "网格.pdf"   '指定目标文件
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Book.Build() '生成报表
            Book.Save(fl)

 

 

把输出文件设置为PDF文件;输出后PDF文件打不开。要怎么处理?(输出为XLS文件就可以正常打开)


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/2 16:47:00 [只看该作者]


 回到顶部