Hola a tod@s Crystal report es mi peor pesadilla ca da vez que arreglo un
error, me sale otro.
Les cmentol oq ue quiero hacer un informe que a su vez contiene un
subinforme que cada uno de estos tiene un dataset y quiero cargar el report
principal cargado cada uno con su dataset voy a poner el codigo a ver si
alguien sabe que hago mal.
Dim dsem As New monedas()
Dim drem As System.Data.DataRow
Dim col As Integer
Dim aux As String
Dim command As SqlClient.SqlCommand = New
SqlClient.SqlCommand("banco", SqlConnection1)
SqlConnection1.Open()
Dim myreader As SqlClient.SqlDataReader =
command.ExecuteReader(CommandBehavior.CloseConnection)
While myreader.Read
aux = (myreader.GetString(0))
End While
Dim objxml As New Xml.XmlDocument()
aux = "<root>" + aux + "</root>"
objxml.LoadXml(aux)
myreader.Close()
Dim objnodesco As XmlNodeList
objnodesco = objxml.SelectNodes("root/monedas")
col = objnodesco.Count
Dim doc As XmlDocument = New XmlDocument()
doc.LoadXml(aux)
Dim nsmgr As XmlNamespaceManager = New
XmlNamespaceManager(doc.NameTable)
Dim nodelist As XmlNodeList
Dim root As XmlElement = doc.DocumentElement
nodelist = root.SelectNodes("/root/monedas", nsmgr)
drsm = dssm.smonedas.NewRow
drsm.Item(x.Attributes(2).Value) =
x.Attributes(3).Value
dssm.smonedas.Rows.Add(drsm)
'Armo Reporte
Dim moReportSource As New cuadre()
Dim report1 As New
CrystalDecisions.CrystalReports.Engine.ReportDocument()
Me.Text = "Reporte"
moReportSource.SetDataSource(dssb)
moReportSource.OpenSubreport("monedas.rpt").SetDataSource(dsem)
moReportSource.OpenSubreport("monedas.rpt").Refresh()
report1.SetDataSource(dssb)
Me.Show()
Muchas gracias a todos.Y si es algo dificil encontrar el fallo agradeceria
que alguien si tiene algo hecho parecido un informe consubinforme y dataset
que me lo pasara para ver como lo hkizo, isno es mucha molestia.
Un saludo adninra
