hola buenos días, yo empeze a trabajar con
gambas 3 con un proyecto ya realizado en
gambas RC6 me mostraba la información que contenía mi base de datos pero era muy lento para imprimir, por eso decidí trabajarlo en la nueva versión pero esta no me muestra la información en los ReportVBox le muestro el código puede ser que me falta algo podrían ayudarme
Public Sub _new()
Dim hResult As Result
Dim Rlbl1 As ReportLabel
Dim Rlbl2 As ReportLabel
Dim Rlbl3 As ReportLabel
Dim Rlbl4 As ReportLabel
Dim Rlbl5 As ReportLabel
Dim Rlbl6 As ReportLabel
Dim Rlbl7 As ReportLabel
Dim Rlbl8 As ReportLabel
Dim Rlbl9 As ReportLabel
Dim Rlbl10 As ReportLabel
Dim Rlbl11 As ReportLabel
Dim Rlbl12 As ReportLabel
Dim Rlbl13 As ReportLabel
Dim Rlbl14 As ReportLabel
Dim Rlbl15 As ReportLabel
Dim Rlbl16 As ReportLabel
Dim Rlbl17 As ReportLabel
Dim Rlbl18 As ReportLabel
Dim Rlbl19 As ReportLabel
Dim Rlbl20 As ReportLabel
Dim Rlbl21 As ReportLabel
Dim Rlbl22 As ReportLabel
Dim Rlbl23 As ReportLabel
Dim Rlbl24 As ReportLabel
Dim Rlbl25 As ReportLabel
Dim Rlbl26 As ReportLabel
Dim Clave As String
Dim Filtro As String
Dim hConn As Connection
hConn = New Connection
hConn.Host = "/home/marlin/Escritorio/prueba1/IMVI-BD"
hConn.Name = "BD_OrdenPago"
hConn.Type = "sqlite"
Try hConn.Open()
If Error Then
Message.Error("ALGO A PASADO EN LA BASE DE DATOS")
hConn = Null
Else
Filtro = OrdenesdePagos.DataControl4.Value
hResult = hConn.Exec("Select * From RetencionISLR where Numero_Orden like'" & Filtro & "'")
End If
If Not hResult.Available The Return
For Each hResult
Rlbl1 = New ReportLabel(ReportVBox2)
Rlbl4 = New ReportLabel(ReportVBox4)
Rlbl5 = New ReportLabel(ReportVBox5)
Rlbl6 = New ReportLabel(ReportVBox6)
Rlbl7 = New ReportLabel(ReportVBox7)
Rlbl8 = New ReportLabel(ReportVBox8)
Rlbl9 = New ReportLabel(ReportVBox9)
Rlbl10 = New ReportLabel(ReportVBox10)
Rlbl11 = New ReportLabel(ReportVBox11)
Rlbl12 = New ReportLabel(ReportVBox12)
Rlbl13 = New ReportLabel(ReportVBox14)
Rlbl14 = New ReportLabel(ReportVBox15)
Rlbl15 = New ReportLabel(ReportVBox16)
Rlbl16 = New ReportLabel(ReportHBox6)
Rlbl17 = New ReportLabel(ReportVBox15)
Rlbl18 = New ReportLabel(ReportHBox2)
Rlbl19 = New ReportLabel(ReportVBox15)
Rlbl20 = New ReportLabel(ReportVBox15)
Rlbl21 = New ReportLabel(ReportVBox17)
Rlbl22 = New ReportLabel(ReportVBox13)
Rlbl23 = New ReportLabel(ReportVBox16)
Rlbl24 = New ReportLabel(ReportVBox16)
Rlbl25 = New ReportLabel(ReportVBox16)
' Rlbl1.Text = Date
'
Rlbl2 = ReportLabel6
Rlbl26 = ReportLabel36
Rlbl2.Text = hResult!RIF
Rlbl4.Text = hResult!Factura
Rlbl5.Text = hResult!Control
Rlbl6.Text = hResult!Fecha
Rlbl7.Text = hResult!MontoSujetoRet
Rlbl8.Text = hResult!Concepto
Rlbl9.Text = hResult!Sustraendo
Rlbl10.Text = hResult!Porcentaje_Ret
Rlbl11.Text = hResult!Monto_Ret
Rlbl26.Text = hResult!FechaRet
Next