0

これは私のコードです:

    Dim ds As New DataSet1
    Dim cnn As SqlConnection
    Dim con1 As String = "Data Source=;Initial Catalog=;Integrated Security=True"
    Dim sql As String = "SELECT * FROM POBasket where POBNumber='" + txtorderno.Text + "'"
    cnn = New SqlConnection(con1)
    cnn.Open()
    Dim dscmd As New SqlDataAdapter(sql, cnn)
    Dim dscrystal As New DataSet1
    dscmd.Fill(dscrystal, "POBasket")
    cnn.Close()

    Dim report As CrystalReport1 = New CrystalReport1
    report.SetDataSource(dscrystal.Tables("POBasket"))
    report.SetParameterValue("ProductName", "+")
    poreport.pocrystalviewer.ReportSource = report
    poreport.pocrystalviewer.Refresh()
    poreport.Show()

私はいつもエラーが発生します:

レポートにテーブルがありません

私を助けてください!

4

1 に答える 1

0

以下のコードを使用します。

report.database.table[0].setdatasource(dscrystal.Tables("POBasket"))

それ以外の

report.SetDataSource(dscrystal.Tables("POBasket"))

私にとってはその仕事です。

役立つと思います。

于 2015-02-06T07:27:48.673 に答える