1 resposta(s) nesse tópico

[marloff]

Galera, preciso gerar um relatório no crystal report a partir de variáveis do sistema, não de dados de um banco. Tem como?

É o processamento dos dados já coletados de um banco, e o resultado deste processamento teria que ser exibido em um relatório para impressão. Todos os dados estão armazenados em arrays.


Utilizo o Visual Studio 2010, linguagem: C# windows forms.

[nickosoft]

todo relatorio q faco, mesmo qnd a base do programa é em C# eu faco o form do relatorio com VB

segue um exemplo q fiz pra demonstrar uma vez, usando access

	    Dim Tabela As New DSRelatorio.DTRelatorioDataTable
	    Dim Linha As DSRelatorio.DTRelatorioRow
	    Dim strQuery As String = "Select * from funcionários order by nome asc"
	    Dim dsDataSet As New DataSet
	    Dim CN As New OleDbConnection
	    Try
		    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Northwind.mdb;"
		    CN.Open()
		    Dim cmdComando As New OleDbCommand
		    With cmdComando
			    .CommandText = strQuery.ToString
			    .CommandType = CommandType.Text
			    .Connection = CN
			    .ExecuteNonQuery()
		    End With
		    Dim dtAdapter As New OleDbDataAdapter
		    With dtAdapter
			    .SelectCommand = cmdComando
			    .Fill(dsDataSet)
		    End With
	    Catch ex As Exception
		    Throw ex
	    Finally
		    If CN.State = ConnectionState.Open Then
			    CN.Close()
		    End If
	    End Try
	    If dsDataSet.Tables(0).Rows.Count <= 0 Then
		    MsgBox("Nao foi encontrado nenhum registro")
	    Else
		    For LinhaTabela = 0 To CInt(dsDataSet.Tables(0).Rows.Count - 1)
			    Linha = Tabela.NewRow()
			    Linha("nome") = dsDataSet.Tables(0).Rows(LinhaTabela).Item("nome").ToString
			    Linha("Sobrenome") = dsDataSet.Tables(0).Rows(LinhaTabela).Item("sobrenome").ToString
			    Linha("cargo") = dsDataSet.Tables(0).Rows(LinhaTabela).Item("cargo").ToString
			    Linha("Endereco") = dsDataSet.Tables(0).Rows(LinhaTabela).Item("endereço").ToString
			    Tabela.AddDTRelatorioRow(Linha)
		    Next
	    End If
	    Dim TmpDT As DataTable = Tabela
	    Dim objRpt As New crpRelatorio
	    objRpt.SetDataSource(TmpDT)
	    CrystalReportViewer1.ReportSource = objRpt
	    CrystalReportViewer1.Refresh()