[Gambas-user] gb.report gambas3

[Fabien Bodard]

ouch i can maybe help you ... if i can understand what you mean :)

i've not suffisely time to make the doc for gb.Report :/ (but i will try)

now ..

report.spacing = "1mm"

for each hresult

hcont = new ReportHBox(report)
hcont.autoresize = true
hcont.border.bottom.width = "1px"

hlabel = new reportlabel(hcont)
hlabel.width = "3cm"
hlabel.text = rs! Id_completo

hlabel = new reportlabel(hcont)
hlabel.width = "3cm"
hlabel.text = rs! Codigo_socio

hlabel = new reportlabel(hcont)
hlabel.width = "3cm"
hlabel.text = rs! Nombre_completo
hlabel.expand = true

next



well in fact this way, is the temporary one


next this code will look to :

reporthbox1.data = hresult

tadaa !


it work in some way but i've still some bugs :/
in this case you draw the reporthbox with three label
and you define the key property with the result field name ... that's all

then in the code, in the _new sub just add
reporthbox1.data = hresult

this attach the result datas to the hbox and repeat the hbox the
number of result.

it's more fast than the current system as it not really store the
object or just a part of them (size,page)
bot not data.





2011/8/4 herberth guzman <herberthguzman at ...626...>:
> goodnight community would like to help me with gb.report I managed to do
> some reports in gambas3 but only funsion me with code creating them, I would
> like to design a graphical report and you look as designed, if you design a
> report to run it when you looks misconfigured.
>
> And also I have the problem that shows me all results of HRESULT ReportLabel
> just shows me a record and when I do it from the code
> for example:
>
> Cx As Connection Private
> Private rs As Result
>
> Public Sub _new ()
>   Dim i As ReportLabel
>
>   cx = ModDB.conectar ()
>   rs = db.Exec ("SELECT * FROM tbrecibo")
>
> i = New ReportLabel (RVBCont)
>
> For Each rs
> i = New ReportLabel (RVBCont)
>
>     i.Text = rs!id & "" & rs!codigo_socio & "" & rs!nombre_completo
>
> Next
>
> end
>
> when viewing the report does not look flashy aesthetic or misconfigured and
> if you look the way I want to show graphics with a reportlab as follows:
>
> Cx As Connection Private
> Private rs As Result
>
> Public Sub _new ()
>   Dim i As ReportLabel
>
>   cx = ModDB.conectar ()
>   rs = db.Exec ("SELECT * FROM tbrecibo")
>
> i = New ReportLabel (RVBCont)
>
> For Each rs
>    ReportLabel1.Text = rs!id_completo
>    ReportLabel2.Text = rs!codigo_socio
>    ReportLabel3.Text = rs!nombre_completo
>
> Next
>
> end
> so just looking at a record are more than 100 could help me please.
>
> thanks
> ------------------------------------------------------------------------------
> BlackBerry® DevCon Americas, Oct. 18-20, San Francisco, CA
> The must-attend event for mobile developers. Connect with experts.
> Get tools for creating Super Apps. See the latest technologies.
> Sessions, hands-on labs, demos & much more. Register early & save!
> http://p.sf.net/sfu/rim-blackberry-1
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>



-- 
Fabien Bodard