如何在datagridview中显示选定的行到crystal报表

时间:2016-02-07 04:42:43

标签: sql-server vb.net sql-server-2008 datagridview crystal-reports

这是我第一次使用Crystal报表。我有一个存储过程,我想要做的是当我在datagridview中突出显示一行并单击报表按钮时,只有突出显示的行被发送到报告查看器页面。我在这里尝试了一些解决方案,但没有运气。

报告按钮代码

Imports System.Data.SqlClient
Imports System.IO
Imports CrystalDecisions.CrystalReports.Engine

Public Class frmView
    Dim cn As New SqlConnection("Data Source=.;Initial Catalog=DBSAS;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim i As Integer
    Dim a As New OpenFileDialog

    Private Sub btnRep_Click(sender As Object, e As EventArgs) Handles btnRep.Click 
            cn.Open()
        Dim report As New ReportDocument
        da.SelectCommand = New SqlCommand("EXEC usplatestDateEnrolled ", cn)
        report.RecordSelectionFormula = "{@studID}" & dgv1.SelectedRows(0).Cells(0).Value
        report.Load("C:\users\agent_edx44\My Documents\Visual studio 2012\projects\SASApp\Rep.rpt")
        frmReport.CrystalReportViewer1.ReportSource = report
        frmReport.CrystalReportViewer1.Refresh()
        frmReport.Show()
            cn.Close()
    End Sub

End Class

存储过程代码

USE [DbSAS]
GO
/****** Object:  StoredProcedure [dbo].[uspLatestDateEnrolled]    Script Date: 02/07/2016 12:35:26 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:      <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[uspLatestDateEnrolled]
    -- Add the parameters for the stored procedure here

@studID INT = NULL


AS
BEGIN

    SET NOCOUNT ON;
SELECT sh.SchoolYear,
        sh.Levels,sh.Section, sh.DateEnrolled ,
        SI.StudentID,SI.Surname,SI.FirstName,SI.MiddleName, SI.StudAddress , 
        SI.BirthDay,SI.Gender, SI.Nationality, SI.BirthPlace,
        SI.TelNum,SI.SchoolWhereGraduated , 
        SI.DatesWhenGraduated, SI.SchoolLastAttended,
        SI.SchoolAddress, SI.Note,SI.StudImage,
        PI.Father_FirstName,PI.Father_LastName,
        PI.Father_MI,PI.Father_Occupation, 
        PI.Father_TelNUm, PI.Mother_FirstName, PI.Mother_LastName,
        PI.Mother_MI,PI.Mother_Occupation,PI.Mother_TelNum,
        PI.Contact_FirstName,PI.Contact_LastName,PI.Contact_MI,
        PI.Contact_Mobile,PI.Contact_TelNum,PI.Contact_Address  
        FROM StudentInformation SI 
        JOIN StudentHistory SH  
            ON SI.StudentID = SH.StudentID
        JOIN ParentInformation PI
        ON PI.ParentID = SI.ParentID
        WHERE si.StudentID = @studID
        ORDER BY DateEnrolled DESC

            SELECT * FROM StudentHistory WHERE StudentID = @studID
                ORDER BY DateEnrolled DESC
            SELECT TOP 1 SchoolYear,
                Levels,Section, DateEnrolled as LatestDate
                FROM StudentHistory
                WHERE studentID = @studID
                ORDER BY DateEnrolled DESC

当我运行此代码时,它说

  

此行中的报告文件路径无效

report.RecordSelectionFormula = "{@studID}" & dgv1.SelectedRows(0).Cells(0).Value

任何人都可以帮我修改我的代码。我被困在这里将近一个小时。提前致谢

1 个答案:

答案 0 :(得分:0)

尝试在此行的末尾添加.ToString:

report.RecordSelectionFormula = "{@studID}" & dgv1.SelectedRows(0).Cells(0).Value