Mình đang làm một bài tóan về Quản lý Lương – Nhân Sự trong đó có chấm công và tính lương theo từng tháng. Trứơc khi in bảng chấm công mình đã tạo ra một from Cập nhât ngày công động Vd : CCGT62008 trong SQL Server và lưu dữ liệu vào đây  Mình muốn dùng Crystal Report để in báo cáo bảng chấm công theo tháng giống như trên, nhưng không rành lắm về Crystal Report trong VB.NET nên làm hoài mà không thể hiển thị dữ liệu được. Đây là đọan code mình tạo report với Parameter để hiển thị dữ liệu. Mọi người xem dùm mình với . Cám ơn mọi người nhiều.
--------------------------------------------------------------------
Public Class crvCCGianTiep
    Public sThang As String, sNam As String, Tenbang As String

    Private Sub crvCCGT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crvCCGT.Load
        sThang = frmInCCGT.nudThang.Value
        sNam = frmInCCGT.nudNam.Value
        Tenbang = "CCGT" + sThang + sNam
        'Tenbang = "CCGT62008"
        Dim rpt1 As New ReportDocument
        Dim cSQL As String
        Dim cnn As New OleDbConnection
        Dim da As New OleDbDataAdapter
        Dim RP = New DataSet
        'Dim i As Integer

        cnn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=(local);uID=sa;pwd=sa;Initial Catalog=LUONGNS"
        cnn.Open()

        cSQL = "Select NV.MANV,NV.HOTEN,NV.DONVI,CV.TENCV,CC.NGAYCONG,CC.NGAYLTHEM,CC.NGAYPHEP,CC.NGAYKPHEP,CC.NGAYOM " & _
                "From (((NHANVIEN As NV Inner Join BOPHAN As BP On NV.MABP = BP.MABP) Inner Join CHUCVU As CV On NV.MACV = CV.MACV) Left Join " & Tenbang & " As CC On NV.MANV = CC.MANV)"
        MsgBox(cSQL)

        da = New OleDbDataAdapter(cSQL, cnn)
        da.Fill(RP)

        Dim s As String
        s = System.IO.Path.GetPathRoot(System.IO.Path.GetFullPath("crCCGianTiep.rpt")) & "Luongns\Luongns\Reports\crCCGianTiep.rpt"

        rpt1.Load(s)

        rpt1.SetParameterValue("MANV", RP.Tables(0).Rows(0).Item("MANV"))
        rpt1.SetParameterValue("HOTEN", RP.Tables(0).Rows(0).Item("HOTEN"))
        rpt1.SetParameterValue("DONVI", RP.Tables(0).Rows(0).Item("DONVI"))
        rpt1.SetParameterValue("TENCV", RP.Tables(0).Rows(0).Item("TENCV"))
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYCONG")) Then
            rpt1.SetParameterValue("NGAYCONG", CInt(RP.Tables(0).Rows(0).Item("NGAYCONG")))
        End If
        'rpt1.SetParameterValue("NGAYCONG", CInt(RP.Tables(0).Rows(0).Item("NGAYCONG")))
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYCONG")) Then
            rpt1.SetParameterValue("NGAYCONG", CInt(RP.Tables(0).Rows(0).Item("NGAYCONG")))
        End If
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYLTHEM")) Then
            rpt1.SetParameterValue("NGAYLTHEM", CInt(RP.Tables(0).Rows(0).Item("NGAYLTHEM")))
        End If
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYPHEP")) Then
            rpt1.SetParameterValue("NGAYPHEP", CInt(RP.Tables(0).Rows(0).Item("NGAYPHEP")))
        End If
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYKPHEP")) Then
            rpt1.SetParameterValue("NGAYKPHEP", CInt(RP.Tables(0).Rows(0).Item("NGAYKPHEP")))
        End If
        If Not IsDBNull(RP.Tables(0).Rows(0).Item("NGAYOM")) Then
            rpt1.SetParameterValue("NGAYOM", CInt(RP.Tables(0).Rows(0).Item("NGAYOM")))
        End If

        Me.crvCCGT.ReportSource = rpt1

    End Sub
End Class