在一个ReportViewer中拖动报告.. [英] Tow Reports in One ReportViewer..

问题描述

hii .. Frindes



请...请...



如何使用两份报告one reportviewer vb.net 2010

解决方案

  Imports  CrystalDecisions。共享 
  Imports  CrystalDecisions.CrystalReports.Engine 
 公开 类 Form10 
 
  Dim  Rpt 作为 新 ReportDocument 
 
 私有  Sub  btn_rpt1_Click（ ByVal  sender  As  System。 对象， ByVal  e  As  System.EventArgs ）句柄 btn_rpt1.Click 
  Dim  frmView  As   New  Form3 '  Crystal Report查看器表单 
 Rpt = 新 CrystalReport1 ' 您的Crystal报表名称 
 如果 Rpt.Rows.Count>  0  然后 
 MsgBox（ 报告中没有数据显示！）
 退出  Sub  
 结束 如果 
 Rpt。刷新（）
 '  frmView.CrystalReportViewer1.SelectionFormula =（{Table1.pt_id} ='&修剪（Me.TextBox1.Text）&'）'如果你需要两个字段，你的选择公式只使用这种类型（{Table1.pt_id} ='& Trim（Me.TextBox1.Text）& '和'{Table1.visit_id} ='& Trim（Me.TextBox2.Text）&'） 
 frmView.CrystalReportViewer1.ReportSource = Rpt 
 frmView.CrystalReportViewer1。 RefreshReport（）
 frmView.Show（）
 结束  Sub  
 
  Private   Sub  btn_rpt2_Click（  ByVal  sender  As  System。 Object ，< span class =code-keyword> ByVal  e  As  System.EventArgs）句柄 btn_rpt2 。点击
  Dim  frmView 作为 新 Form3 '  Crystal Report查看器表单 
 Rpt = 新 CrystalReport2 ' 您的Crystal报表名称 
 如果 Rpt.Rows.Count>  0  然后 
 MsgBox（ 报告中没有数据显示！）
 退出  Sub  
 结束 如果 
 Rpt。刷新（）
 '  frmView.CrystalReportViewer1.SelectionFormula =（{Table1.pt_id} ='&修剪（Me.TextBox1.Text）&'）'如果你需要两个字段，你的选择公式只使用这种类型（{Table1.pt_id} ='& Trim（Me.TextBox1.Text）& '和'{Table1.visit_id} ='& Trim（Me.TextBox2.Text）&'） 
 frmView.CrystalReportViewer1.ReportSource = Rpt 
 frmView.CrystalReportViewer1。 RefreshReport（）
 frmView.Show（）
 结束 子 
 结束 类 

hii .. Frindes

pls.. pls..

how use tow reports in one reportviewer vb.net 2010

解决方案

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form10

    Dim Rpt As New ReportDocument

    Private Sub btn_rpt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rpt1.Click
        Dim frmView As New Form3 'Crystal Report viewer form
        Rpt = New CrystalReport1 'Your Crystal Report Name
        If Rpt.Rows.Count > 0 Then
            MsgBox("There is no data to show in report!")
            Exit Sub
        End If
        Rpt.Refresh()
        'frmView.CrystalReportViewer1.SelectionFormula = ("{Table1.pt_id}='" & Trim(Me.TextBox1.Text) & "'") 'Your selection formula if you need two fields just use this type ("{Table1.pt_id}='" & Trim(Me.TextBox1.Text) & "' and "{Table1.visit_id}='" & Trim(Me.TextBox2.Text) & "'")
        frmView.CrystalReportViewer1.ReportSource = Rpt
        frmView.CrystalReportViewer1.RefreshReport()
        frmView.Show()
    End Sub

    Private Sub btn_rpt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rpt2.Click
        Dim frmView As New Form3 'Crystal Report viewer form
        Rpt = New CrystalReport2 'Your Crystal Report Name
        If Rpt.Rows.Count > 0 Then
            MsgBox("There is no data to show in report!")
            Exit Sub
        End If
        Rpt.Refresh()
        'frmView.CrystalReportViewer1.SelectionFormula = ("{Table1.pt_id}='" & Trim(Me.TextBox1.Text) & "'") 'Your selection formula if you need two fields just use this type ("{Table1.pt_id}='" & Trim(Me.TextBox1.Text) & "' and "{Table1.visit_id}='" & Trim(Me.TextBox2.Text) & "'")
        frmView.CrystalReportViewer1.ReportSource = Rpt
        frmView.CrystalReportViewer1.RefreshReport()
        frmView.Show()
    End Sub
End Class

这篇关于在一个ReportViewer中拖动报告..的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！