VB winform ↔ crystal report me muestra siempre el mismo reporte

[damid3]

Wenas es largo esto lo expongo

el crystal report lo creo generando un xml y me muestra los datos perfecto pero cuando busco otra factura me muestra el que seleccione primero

mi codigo

Código vb:

If BuscarRegPrint(query, "facturas1", "facturasdetalles", "factu_ci", "facturas", True) = True Then
            If ds.Tables("facturas").Rows.Count = 0 Then
                MsgBox("No hay ningun Registro")
            Else
                My.Computer.FileSystem.CreateDirectory("C:\XML")
                Dim url As String = "C:\XML\factu_ci.xml"
                ds.WriteXml(url, XmlWriteMode.WriteSchema)
                factrepci.ShowDialog()
                My.Computer.FileSystem.DeleteFile("C:\XML\factu_ci.xml")
                conec2.Close()
            End If
        End If
 

es decir creo el factu_ci.xml y luego lo muestro en el reporte y luego lo borro para q no quede el mismo

la funcion BuscarRegPrint es la siguiente

Código vb:

Public Function BuscarRegPrint(ByVal query As String, ByVal tm1 As String, ByVal tm2 As String, ByVal dsn As String, ByVal dfn As String, ByVal tm As Boolean)
        Try
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(query, conec2)
            If tm = True Then
                da.TableMappings.Add(tm1, tm2)
            End If
            ds = New DataSet(dsn)
            da.Fill(ds, dfn)
            Return True
        Catch ex As Exception
            MsgBox("Error function BuscarRegPrint ")
            Return False
        End Try
    End Function
 

pero como expuse antes calculo que el problema esta en que queda el reporte que e echo y tendría que borrarlo pero es una suposición

alguna idea ?

Desde ya muchas gracias como siempre

Saludos

[damid3]

pues no entiendo porque pero le agrege factrepci.close() y funciona si alguien me lo puede explicar seria un golaso

dejo el codigo por si alguien le sirve :S

Código vb:

If BuscarRegPrint(query, "facturas1", "facturasdetalles", "factu_ci", "facturas", True) = True Then
            If ds.Tables("facturas").Rows.Count = 0 Then
                MsgBox("No hay ningun Registro")
            Else
                factrepci.Close()
                My.Computer.FileSystem.CreateDirectory("C:\XML")
                Dim url As String = "C:\XML\factu_ci.xml"
                ds.WriteXml(url, XmlWriteMode.WriteSchema)
                factrepci.ShowDialog()
                My.Computer.FileSystem.DeleteFile("C:\XML\factu_ci.xml")
                conec2.Close()
            End If
        End If
 

Saludos

[Aquaventus]

pues no entiendo porque pero le agrege factrepci.close() y funciona si alguien me lo puede explicar seria un golaso

Pues si tu no sabes... nosotros menos no somos pitonizos para saber que significa esa variable, y que procesos seguiste anteriormente como para tener idea de tu lógica del negocio. Saludos!.

[damid3]

si, bueno solo cierro el formulario factrepci q es el q tiene el crystalreportview.
Ojo en teoria lo cierro despues de general el primer reporte, en fin ,o.o como si quedara abierto.



Saludos