运行时数据绑定带参数问题

收藏

使用的是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

smartmm · smartmm

在报表中建立了rowid这个参数

smartmm · smartmm

KearneyKang · KearneyKang

这个需要你进行代码调试，看参数传递过去之后，报表返回的table值是否给报表绑定。单单看这个我不能很好的确定这个问题

smartmm · smartmm

我只要把报表设置那的参数删除掉，就能正常显示，下面的代码就能正常显示，是还有其他的设置么
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 · KearneyKang

你是使用那种方式渲染的，你的页面中是不是引用了
< script language = "javascript" type = "text / javascript" SRC = "http://code.jquery.com/jquery-2.0.min.js"> </script>
这个Jquery文件的版本你给使用比较低的版本，因为高版本出现一个冲突，导致参数报表没法用

smartmm · smartmm

smartmm · smartmm

用了< script language = "javascript" type = "text / javascript" SRC = "http://code.jquery.com/jquery-2.0.min.js"> </script>进行渲染，参数是能进行传递了，但是前台打印导出的按钮就没了

KearneyKang · KearneyKang

你换 1.7.2试试，然后看看代码进没有进打印和导出的方法里。

KearneyKang · KearneyKang

用这个版本试试：<script language="javascript" type="text/javascript" src="http://apps.bdimg.com/libs/jquery/1.7.1/jquery.min.js"></script>
我刚刚测试了都是可以的

		自动登录	找回密码
密码			立即注册

[已处理] 运行时数据绑定带参数问题

9 个回复

本帖子中包含更多资源

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

悬赏达人

元老葡萄