Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]锐浪报表Grid++Report在狐表的应用(合集)2023.12.23更新


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

主题：[分享]锐浪报表Grid++Report在狐表的应用(合集)2023.12.23更新
帅哥哟，离线，有人找我吗？
linyunu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		[分享]锐浪报表Grid++Report在狐表的应用(合集)2023.12.23更新  发帖心情 Post By：2021/6/19 21:21:00 [显示全部帖子]

您无权查看精华帖子
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/19 21:21:00 [显示全部帖子]


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

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

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

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

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

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


导出excel
以下内容只有回复后才可以浏览

[此贴子已经被作者于2023/12/23 23:52:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/20 11:18:00 [显示全部帖子]

以下是引用chen37280600在2021/6/20 9:54:00的发言：
看了一下文档，感觉没什么用

CS端大部分功能跟狐表的统计查询、专业报表、图表，都是重叠的
BS端则echart和各种printJs库比它好用，各种Github爆星产品，百度一堆教程案例

CS端专业报表的话，后期调整数据位置需要重新编译，锐浪的可以在客户端自己调整报表模版，调整后也可以分发覆盖原来的模版就行，我觉得挺好的
而且专业报表 预览后打印和直接打印是不一样的   是Bug  也无法控制预览后 打印不打印 的后续判断
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/22 10:33:00 [显示全部帖子]

以下是引用vbmic在2021/6/22 9:21:00的发言：
我按贴子说明添加了dll，可是按击窗体内的按钮还是提示没有注册类之类的错误，怎么办呀？
看2楼
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/22 10:38:00 [显示全部帖子]

以下是引用lihe60在2021/6/22 9:26:00的发言：
46楼和48楼载图是怎么回事？
你是用我的例子打开的吗？
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/25 16:07:00 [显示全部帖子]

    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "XLS文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        'ExportDirect(GRExportType ExportType, String FileName, bool ShowOptionDlg, bool DoneOpen)
        '参数
        'GRExportType ExportType指定导出的文件类型.
        
        '成员名称 枚举值 说明
        'gretXLS 1 导出Excel文件.
        'gretTXT 2 导出文本文件.
        'gretHTM 3 导出Html超文本文件.
        'gretRTF 4 导出RTF文件.
        'gretPDF 5 导出PDF格式文件.
        'gretCSV 6 导出CSV格式文件.
        'gretIMG 7 导出图像文件,支持多种图像格式.
        
        'String FileName指定导出的完整文件路径与文件名称.
        'bool ShowOptionDlg指定是否在导出之前显示选项设置对话框.
        'bool DoneOpen指示是否在导出数据之后用关联程序打开导出文件.
        Report.ExportDirect(gregn6Lib.GRExportType.gretXLS,dlg.FileName , False, True)   
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/30 10:31:00 [显示全部帖子]

全局代码
    Private OpenReportFile As String

    Public Sub New(ByVal OpenReportFile As String)
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的.
        InitializeComponent()
        '在 InitializeComponent() 调用之后添加任何初始化
    Me.OpenReportFile = OpenReportFile 
    End Sub

    Private Sub CustomDesign_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '通过设定设计器控件的属性,自定义外观与行为
        'AxGRDesigner1.OnlyLayout = True
        'AxGRDesigner1.ShowExplorer = False
        'AxGRDesigner1.ShowInspector = False
        AxGRDesigner1.Report = Report

        openFileDialog1.InitialDirectory = ProjectPath 
        If OpenReportFile IsNot Nothing Then
            Report.LoadFromFile(OpenReportFile)
            AxGRDesigner1.Reload()
        End If
    End Sub



Dim fm As System.Windows.Forms.Form = new CustomDesign(ProjectPath & "出库单.grf")
fm.Show()
[此贴子已经被作者于2021/6/30 14:25:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/6/30 14:26:00 [显示全部帖子]

忘了修改

    Private Sub CustomDesign_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '通过设定设计器控件的属性,自定义外观与行为
        'AxGRDesigner1.OnlyLayout = True
        'AxGRDesigner1.ShowExplorer = False
        'AxGRDesigner1.ShowInspector = False
        AxGRDesigner1.Report = Report

        openFileDialog1.InitialDirectory = ProjectPath 
        If OpenReportFile IsNot Nothing Then
            Report.LoadFromFile(OpenReportFile)
            AxGRDesigner1.Reload()
        End If
    End Sub

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:demo.rar


[此贴子已经被作者于2021/6/30 14:29:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/7/1 0:17:00 [显示全部帖子]

另一种写法

去除
    Public Sub New(ByVal OpenReportFile As String)
        MyBase.New()
        InitializeComponent()
        Me.OpenReportFile = OpenReportFile
    End Sub


    Private OpenReportFile As String = Nothing   ' Private  改为 Public 


打开模版

Dim fm As CustomDesign = new CustomDesign()
fm.OpenReportFile = ProjectPath & "出库单.grf"      模版路径
fm.Show()
[此贴子已经被作者于2021/7/1 0:23:29编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08398 秒, 7 次数据查询