0

クリスタルレポートにサブレポートがあります..vb.netを使用しています ここに画像の説明を入力

delParkingtype.rpt

サブレポートとして作成しました。次に、このレポートを次のようにクリスタルレポートビューアーに呼び出します。

        Dim rpt As New DelivaryPerformance
        Dim rpt1 As New DelParkingtype
        Dim locid As Integer = RecordID("Locid", "Location_tbl", "LocName", CmbLocations.Text)
        Dim cmdstatus As New SqlCommand("IBS_DelivaryStaus", con.connect)
        cmdstatus.CommandType = CommandType.StoredProcedure
        cmdstatus.Parameters.Add("@locid", SqlDbType.Int).Value = locid
        da.SelectCommand = cmdstatus
        da.Fill(ds)
        If (ds.Tables(0).Rows.Count > 0) Then

            rpt.SetDataSource(ds.Tables(0))
            ' CrystalReportViewer1.ReportSource = rpt
        End If
        Dim cmdparkingtype As New SqlCommand("IBS_Delivaryparkingtype", con.connect)
        cmdparkingtype.CommandType = CommandType.StoredProcedure
        cmdparkingtype.Parameters.Add("@locid", SqlDbType.Int).Value = locid
        da1.SelectCommand = cmdparkingtype
        da1.Fill(ds1)
        If (ds1.Tables(0).Rows.Count > 0) Then

            rpt1.SetDataSource(ds1.Tables(0))
            CrystalReportViewer1.ReportSource = rpt1
            CrystalReportViewer1.ReportSource = rpt
        End If

しかし

DelParkingtype がデータを埋めていない..コードの何が問題なのか

4

1 に答える 1

0

このようなことを行う必要があります。データソースをメイン レポートのサブレポートに追加する必要があります。その後、メイン レポートを reportSource に追加するだけです。

rpt.Subreports(0).SetDataSource(ds1.Tables(0))
CrystalReportViewer1.ReportSource = rpt;

これは必要ありません

Dim rpt1 As New DelParkingtype

これがお役に立てば幸いです

于 2013-11-05T12:40:08.763 に答える