[Resolvido] SetDataSource erro muito complicado !

[deejayloko 0]

Amigos muito bom dia, por favor me ajudem neste problema !

 

Analisem esse trecho do código !

 

 

Dim oRpt As New RptQuebraGalho
			Dim Dt As New DataTable
			Dim Pessoal_po As New CECREMEF.PedidoPosicao_Negocio.Pessoal
			Dim DtDadosPessoal As New DataTable
			DtDadosPessoal = Pessoal_po.Consultar(Session("Cod_Associado_QuebraGalho"))
			Dim DtQuebraGalho As New Relatorios.DtsQuebraGalho.QuebraGalhoDataTable
			Dim DrDados As DataRow
			DrDados = DtQuebraGalho.NewRow
			DrDados("VL_SOLICITADO") = Session("Vl_Solicitado_QuebraGalho")
			DrDados("COD_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("COD_ASSOCIADO")
			DrDados("NOME") = DtDadosPessoal.Rows(0).Item("NOM_ASSOCIADO")
			DrDados("CPF") = DtDadosPessoal.Rows(0).Item("NUM_CPF_ASSOCIADO")
			DrDados("CONTA_CORRENTE") = DtDadosPessoal.Rows(0).Item("TXT_CONTA_CORRENTE_ASSOCIADO")
			DrDados("END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("END_ASSOCIADO")
			DrDados("NUM_END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NUM_END_ASSOCIADO")
			DrDados("NOM_COMPLEMENTO_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_COMPLEMENTO_ASSOCIADO")
			DrDados("NOM_BAIRRO_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_BAIRRO_ASSOCIADO")
			DrDados("NOM_CIDADE_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_CIDADE_ASSOCIADO")
			DrDados("SGL_UF_END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("SGL_UF_END_ASSOCIADO")
			DrDados("CEP_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("CEP_ASSOCIADO")
			DrDados("DT_ULT_ATU_CAD_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("DT_ULT_ATU_CAD_ASSOCIADO")
			DrDados("OBSERVACAO") = Session("Observacoes_QuebraGalho")
			DtQuebraGalho.Rows.Add(DrDados)

			oRpt.SetDataSource(DtQuebraGalho)
			
			\\ nesta linda acima ocorre um erro. Segue abaixo o erro !

 

Error 1 Overload resolution failed because no accessible 'SetDataSource' is most specific for these arguments:

'Public Overridable Sub SetDataSource(dataTable As System.Data.DataTable)': Not most specific.

'Public Overridable Sub SetDataSource(enumerable As System.Collections.IEnumerable)': Not most specific. D:\cvs-server2003\sic\cecremef\relatorios\Relatorios\Formularios\FormularioQuebraGalho.aspx.vb 39 13 Relatorios

 

 

 

 

Não consigo descobrir a solução para este problema ! Me ajudem por favor !

 

Muito Obrigado !!!

[quintelab 91]

Não tenho certeza, mas tente isso:

oRpt.SetDataSource((DataTable)DtQuebraGalho)

Abraços...

[deejayloko 0]

Não tenho certeza, mas tente isso:

oRpt.SetDataSource(([b]DataTable[/b])[b]DtQuebraGalho[/b])

Abraços...

 

 

Pow amigo, eu fico muito grato ! Mas, não deu certo não ! Deu erro na área em negrito !!!

 

Sinistro neh !?

[deejayloko 0]

Amigos, quero agradecer a todos vocês pela ajuda, achei a solução com a ajuda de um amigo no orkut.

Segue abaixo a solução !!! Valeu.

Dim oRpt As New RptQuebraGalho
			Dim Dt As New DataTable
			Dim Pessoal_po As New CECREMEF.PedidoPosicao_Negocio.Pessoal
			Dim DtDadosPessoal As New DataTable
			DtDadosPessoal = Pessoal_po.Consultar(Session("Cod_Associado_QuebraGalho"))
			Dim DtQuebraGalho As New Relatorios.DtsQuebraGalho.QuebraGalhoDataTable
			Dim DrDados As DataRow
			Dim Dts As DataSet

			DrDados = DtQuebraGalho.NewRow
			DrDados("VL_SOLICITADO") = Session("Vl_Solicitado_QuebraGalho")
			DrDados("COD_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("COD_ASSOCIADO")
			DrDados("NOME") = DtDadosPessoal.Rows(0).Item("NOM_ASSOCIADO")
			DrDados("CPF") = DtDadosPessoal.Rows(0).Item("NUM_CPF_ASSOCIADO")
			DrDados("CONTA_CORRENTE") = DtDadosPessoal.Rows(0).Item("TXT_CONTA_CORRENTE_ASSOCIADO")
			DrDados("END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("END_ASSOCIADO")
			DrDados("NUM_END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NUM_END_ASSOCIADO")
			DrDados("NOM_COMPLEMENTO_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_COMPLEMENTO_ASSOCIADO")
			DrDados("NOM_BAIRRO_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_BAIRRO_ASSOCIADO")
			DrDados("NOM_CIDADE_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("NOM_CIDADE_ASSOCIADO")
			DrDados("SGL_UF_END_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("SGL_UF_END_ASSOCIADO")
			DrDados("CEP_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("CEP_ASSOCIADO")
			DrDados("DT_ULT_ATU_CAD_ASSOCIADO") = DtDadosPessoal.Rows(0).Item("DT_ULT_ATU_CAD_ASSOCIADO")
			DrDados("OBSERVACAO") = Session("Observacoes_QuebraGalho")
			Dt.Rows.Add(DrDados)
			'DtQuebraGalho.Rows.Add(DrDados)
			Dts.Tables.Add(Dt)
			oRpt.SetDataSource(Dts)

			'oRpt.SetDataSource(DtQuebraGalho)
			Dim oStream As New MemoryStream
			oStream = CType(oRpt.ExportToStream(ExportFormatType.PortableDocFormat), MemoryStream)
			'oStream = oRpt.ExportToStream
			Response.Clear()
			Response.Buffer = True
			Response.ContentType = "application/pdf"
			Response.BinaryWrite(oStream.ToArray())
			Response.End()