Итак, у меня есть проект в vs2010 и вы пытаетесь использовать Crystal Report для печати квитанции. У меня есть этот список, где отображаются все покупаемые предметы, и эти элементы будут отправляться в отчет Cyrstal через DataTable DataSet, но он не будет отображаться. Пожалуйста, скажите мне, что не так с моим кодом.Datatable items, не отображаемые в Crystal Report
дизайн RPT
RPT выход не показывает список из ListView
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