2016-12-27 96 views
0

因此,我在vs2010中有一個項目,並試圖使用Crystal Report打印收據。我有這個listview顯示所有正在購買的物品,這些物品將通過DataSet的DataTable發送到Cyrstal Report,但不會顯示。請有人告訴我我的代碼有什麼問題。不顯示從列表視圖Crystal Report中未顯示數據項目

enter image description here

Private Sub orForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     Dim myOR As New salesReceipt 
     Dim cashier As TextObject = myOR.ReportDefinition.ReportObjects("Text11") 
     Dim dtm As TextObject = myOR.ReportDefinition.ReportObjects("Text12") 

     Dim ds As New DataSet 
     Dim dt As New DataTable 
     ds.Tables.Add(dt) 
     With dt 
      .Columns.Add("Items") 
      .Columns.Add("Quantity") 
      .Columns.Add("Total") 
     End With 
     For i As Integer = 0 To main.lvItemsToPurchase.Items.Count - 1 
      Dim dr As DataRow = dt.NewRow 
      dr("Items") = main.lvItemsToPurchase.Items.Item(i).SubItems(1).Text 
      dr("Quantity") = main.lvItemsToPurchase.Items.Item(i).SubItems(3).Text 
      dr("Total") = main.lvItemsToPurchase.Items.Item(i).SubItems(5).Text 
      dt.Rows.Add(dr) 
     Next 

     cashier.Text = "Cashier: " & curUser 
     dtm.Text = "Date/Time: " & Format(Now, "MMMM dd, yyyy") & " " & FormatDateTime(Now, DateFormat.LongTime) 
     myOR.SetDataSource(ds) 
     CrystalReportViewer1.ReportSource = myOR 
    End Sub 

回答

0

使用myOR.SetDataSource(ds.Tables(0))列表

RPT設計

enter image description here

RPT輸出,一個數據集包含多個數據表,所以你應該指定數據集中的數據表格

+0

我已經嘗試過您的解決方案,但它仍然沒有顯示我的數據表索引0的內容,或許我必須將第3節中的三個文本字段從我的Crystal Report綁定到我的Datatable列?但我不知道該怎麼做。 – Gemini7

+0

看看這個 - http://vb.net-informations.com/crystal-report/vb.net_crystal_report_without_database.htm和https://www.codeproject.com/tips/754037/bind-crystal-reports-with -dataset-or-datatable –

+0

你的第一個解決方案,我沒有得到它的工作,但你給的鏈接只是做了魔術,謝謝 – Gemini7