Ich habe ein Projekt in vs2010 und habe versucht, Crystal Report zu verwenden, um eine Quittung auszudrucken. Ich habe diese Listenansicht, in der alle gekauften Artikel angezeigt werden, und diese Artikel werden über DataSets DataTable an den Cyrstal-Bericht gesendet, aber nicht angezeigt. Bitte sagen Sie mir, was mit meinem Code nicht stimmt.Datentypen, die im Crystal Report nicht angezeigt werden
rpt Design
rpt Ausgang nicht die Liste von Listenansicht zeigt
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
Ich habe Ihre Lösung versucht, aber es zeigt immer noch nicht den Inhalt meines Databet-Index 0 oder muss ich die drei Textfelder in Abschnitt (3) von meinem Crystal Report an die Spalten meines Datatable binden? aber ich weiß nicht, wie ich es machen soll. – Gemini7
werfen Sie einen Blick auf diese - http://vb.net-informations.com/crystal-report/vb.net_crystal_report_without_database.htm und https://www.codeproject.com/tips/754037/bind-crystal-reports-with -Dataset-oder-Datatable –
Ihre erste Lösung, ich bekomme es nicht zur Arbeit, aber die Verbindung, die Sie geben, hat nur die Magie, danke – Gemini7