В настоящее время я работаю над отчетами для моего проекта. Я разработал один отчет в Crystal Reports, и подключение осуществляется из базы данных, а не из набора данных, поэтому я поместил этот код, который находится в кнопке печати:
Dim index As Integer = Me.dgrdItems.CurrentRow.Index
Dim connectionString As String = "Data Source=(local)\sqlexpress;Initial Catalog=SAb;Integrated Security=True"
Dim selectConnection As New SqlConnection(connectionString)
selectConnection.Open()
'Dim adapter As New SqlDataAdapter(Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject("SELECT * FROM Sales Where SalesNo='", Me.dgrdItems.Item(0, index).Value), "'")), selectConnection)
Dim dataSet As New DataSet
'adapter.Fill(dataSet, "Sales")
'Dim da As New SqlDataAdapter(Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject("SELECT * FROM SalesItem where ItemSalesNo= '", Me.dgrdItems.Item(0, index).Value), "'")), selectConnection)
''MsgBox(Me.dgrdItems.Item(0, index).Value)
''da.Fill(dataSet, "SalesItem")
''MsgBox(Me.dgrdItems.Item(0, index).Value)
''Dim da2 As New SqlDataAdapter(("SELECT * FROM StoreInfo where StoreName= '" & lblCompanyName.Text & "'"), selectConnection)
''da2.Fill(dataSet, "StoreInfo")
Dim selected As New rptSalesInvoiceSelected
selected.SetDataSource(dataSet)
Dim frmReportsViewer As New reportviewer
frmReportsViewer.CrystalReportViewer1.ReportSource = selected
' AllObjects.frmReportsViewer.MdiParent = MainFormR
frmReportsViewer.Show()
frmReportsViewer.CrystalReportViewer1.PrintReport()
selectConnection.Close()
Я сделал приведенный выше комментарий к коду, и данные загружаются из базы данных и показывают повторяющиеся строки в отчете. Я не знаю, почему этот код в кнопке печати не работает.
Любой ответ будет оценен.
