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 <herberthguz...@gmail.com>: > 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@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > -- Fabien Bodard ------------------------------------------------------------------------------ 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@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user