0
因此,我在vs2010中有一個項目,並試圖使用Crystal Report打印收據。我有這個listview顯示所有正在購買的物品,這些物品將通過DataSet的DataTable發送到Cyrstal Report,但不會顯示。請有人告訴我我的代碼有什麼問題。不顯示從列表視圖Crystal Report中未顯示數據項目
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的內容,或許我必須將第3節中的三個文本字段從我的Crystal Report綁定到我的Datatable列?但我不知道該怎麼做。 – Gemini7
看看這個 - 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 –
你的第一個解決方案,我沒有得到它的工作,但你給的鏈接只是做了魔術,謝謝 – Gemini7