找回密码
 立即注册

QQ登录

只需一步,快速开始

smartmm

初级会员

51

主题

108

帖子

455

积分

初级会员

积分
455

活字格认证

smartmm
初级会员   /  发表于:2019-3-28 15:19  /   查看:3522  /  回复:9
使用的是VR12报表,VB.NET开发,采用运行时数据绑定,在带参数时,参数带进去了,但是报表一直在运行却不显示结果,请问该怎么解决代码为:
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim rowid As String = Trim(Replace(Request.Params("id"), "'", ""))

        Dim rpt As New GrapeCity.ActiveReports.PageReport
        rpt.Load(New System.IO.FileInfo(Server.MapPath("") + "\\dy_jsx.rdlx"))
        rpt.Report.ReportParameters(0).DefaultValue.Values.Add(rowid)
        AddHandler rpt.Document.LocateDataSource, AddressOf Document_LocateDataSource

        WebViewer1.PdfExportOptions.FitWindow = False
        WebViewer1.PdfExportOptions.DisplayMode = GrapeCity.ActiveReports.Export.Pdf.Section.DisplayMode.Outlines
        WebViewer1.Report = rpt

    End Sub

    Sub Document_LocateDataSource(sender As Object, args As GrapeCity.ActiveReports.LocateDataSourceEventArgs) '查询

        If args.DataSourceName = "DataSource1" Then
            If args.DataSetName = "DataSet1" Then
                Dim rowid As String = args.Report.Parameters(0).CurrentValue.ToString()
                Dim dt As New Data.DataTable
                Dim sql As String
                sql = "select t.*, t.rowid from tx_jsx t where t.rowid='" & rowid & "'"
                dt = ds.sqldatt(sql)
                Dim a = dt.Rows.Count
                args.Data = dt
            End If
        End If
    End Sub


9 个回复

倒序浏览
smartmm
初级会员   /  发表于:2019-3-28 15:20:21
沙发
在报表中建立了rowid这个参数
回复 使用道具 举报
smartmm
初级会员   /  发表于:2019-3-28 15:25:19
板凳

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
KearneyKang讲师达人认证 悬赏达人认证
超级版主   /  发表于:2019-3-28 16:37:51
地板
这个需要你进行代码调试,看参数传递过去之后,报表返回的table值是否给报表绑定。单单看这个我不能很好的确定这个问题
回复 使用道具 举报
smartmm
初级会员   /  发表于:2019-3-29 08:19:26
5#
我只要把报表设置那的参数删除掉,就能正常显示,下面的代码就能正常显示,是还有其他的设置么
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim rowid As String = Trim(Replace(Request.Params("id"), "'", ""))

        Dim rpt As New GrapeCity.ActiveReports.PageReport
        rpt.Load(New System.IO.FileInfo(Server.MapPath("") + "\\dy_jsx.rdlx"))

        AddHandler rpt.Document.LocateDataSource, AddressOf Document_LocateDataSource

        WebViewer1.PdfExportOptions.FitWindow = False
        WebViewer1.PdfExportOptions.DisplayMode = GrapeCity.ActiveReports.Export.Pdf.Section.DisplayMode.Outlines
        WebViewer1.Report = rpt


    End Sub
    Sub Document_LocateDataSource(sender As Object, args As GrapeCity.ActiveReports.LocateDataSourceEventArgs) '查询

        If args.DataSourceName = "DataSource1" Then
            If args.DataSetName = "DataSet1" Then

                Dim dt As New Data.DataTable
                Dim sql As String
                sql = "select t.*, t.rowid from tx_jsx t where t.rowid='AABAh9AAOAAACkPAAB'"
                dt = ds.sqldatt(sql)
                Dim a = dt.Rows.Count
                args.Data = dt
            End If
        End If
    End Sub
回复 使用道具 举报
KearneyKang讲师达人认证 悬赏达人认证
超级版主   /  发表于:2019-3-29 09:32:17
6#
你是使用那种方式渲染的,你的页面中是不是引用了
< script language = "javascript" type = "text / javascript" SRC = "http://code.jquery.com/jquery-2.0.min.js"> </script>
这个Jquery文件的版本你给使用比较低的版本,因为高版本出现一个冲突,导致参数报表没法用
回复 使用道具 举报
smartmm
初级会员   /  发表于:2019-3-29 09:52:55
7#
<script language="javascript" type="text/javascript" src="https://code.jquery.com/jquery-2.2.4.min.js"></script>
&#160; &#160; <script type="text/javascript">
用的这个,我机器上还装AR13么,用卸载掉么?
回复 使用道具 举报
smartmm
初级会员   /  发表于:2019-3-29 10:01:09
8#
用了< script language = "javascript" type = "text / javascript" SRC = "http://code.jquery.com/jquery-2.0.min.js"> </script>进行渲染,参数是能进行传递了,但是前台打印导出的按钮就没了
回复 使用道具 举报
KearneyKang讲师达人认证 悬赏达人认证
超级版主   /  发表于:2019-3-29 14:21:46
9#
你换 1.7.2试试,然后看看代码进没有进打印和导出的方法里。
回复 使用道具 举报
KearneyKang讲师达人认证 悬赏达人认证
超级版主   /  发表于:2019-3-29 14:44:48
10#
用这个版本试试:<script language="javascript" type="text/javascript" src="http://apps.bdimg.com/libs/jquery/1.7.1/jquery.min.js"></script>  
我刚刚测试了都是可以的
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部