FiveTech Software tech support forums

... linea oBrw:nRowsel() y la columna que quiero pero el valor no se como extraerlo Por el foro he leído una contestación diciendo esto: Eval( oBrowse:bLine ) Pero, me da error. Sabrían decirme como se hace? Un saludo Juanjo

Jose Luis,

Si tienes los números de líneas, lo que tienens que hacer es posicionar el browse en una a una de esas lineas, y luego llamar a Eval( oBrowse:bLine ) para obtener el valor de toda la fila, y en ese array estan los valores que buscas

... los campos de una tabla, como asi, las descripciones de los mismos, como lo hacia con en twbrowse de cicarelli, habia un parametro omo el bline, que me permitia pasar codeblock con los campos de la base y un aheader, con los nombres de los campos. desde ya muchas gracias

Hola Lubin:
Con oLbx:aHeaders obtienes el arreglo con los titulos.
Con oLbx:bLine obtienes el bloque de codigo con los campos
Espero te sirva como inicio.

...     := 2  Please insert one new line of code between these two lines as below: oRange:Rows( 1 ):Value := aHead AEval( Eval( bLine ), { |u,i| If( ValType( u ) == "C", oRange:Columns( i ):NumberFormat := "@", nil ) } ) nRow := 2 Please let us know if this ...

What should I use for bLine for wbrowse?
I also have some wbrowse in an existing program I want to modify.

1) Please use the syntax as I provided. That is safe.
2) bLine is not for xbrowse. It is for wbrowse.

For xbrose just use:

@ r,c XBROWSE oBrw DATASOURCE oRs COLUMNS "nummer", "naam", "cover" ..............

... una aplicacion que me estaba funcionando bien con un FW antiguo. Ahora estoy trabajando con el FW 15.09 y me encuentro que en esta linea: oLbx:bLine:= {|nAt| nAt:= oLbx:nAt, ; If( Len(aDatos)<1 .or. nAt>Len(aDatos),; Array(15), ; {If( oLbx != Nil .and. oLbx:lSelect, hBmp, 0 ), ; Transform( ...

... += "," + a[ 1 ] } ) cFieldList := Substr( cFieldList, 2 ) endif aHead := HB_ATokens( cFieldList, "," ) nCols := Len( aHead ) bLine := &( "{||{" + cFieldList + "}}" ) DbEval( { || oRange:Rows( nRow ):Value := Eval( bLine ), nRow++ }, bFor, bWhile, nNext, ...

... see a way to make it compatible with the other (dbf based) methods and vars of pbrowse. Return Self  I thought I also can do something with ::bline in pbrowse (which come from twbrowse). While I am writing this post, I suddenly get more ideas again. So later I can further investigate the possible ...

... // WBrwPane recieves at aColSizes the Array or a Block // to get dinamically the Sizes !!! ::Skip( ::nRowPos - wBrwPane( ::hWnd, ::hDC, Self, ::bLine,; ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ...

Hi, I'm trying to obtain a coloured column without success! REDEFINE BROWSE oBrw ID 101 OF oDlg FONT oFont cHeading := "CODE KIT" bLine := "{|| field->code }" oCol := TcColumn():New( cHeading , &bLine , , CLR_GREEN , CLR_WHITE , 0 , 100 , , , , , , , ) oBrw:addcolumn( ...

... . Working with dbfs I used Hernans wbrowse class adopted for mine needs . Then I could create array for codeblocks in needfuls sequence and oBrw:bLine := { || brw_line( aFlds) } works fine ... OK , let say that I retored needful sequence columns for client . From MySql server query I can to do ...

... : rct.right, -1, 4 ); } //---------------------------------------------------------------------------// HB_FUNC( WBRWPANE ) // ( hWnd, hDC, Self, bLine, aSizes, nFirstItem, // nClrFore, nClrBack, hFont, aJustify, nStyle // lCellStyle, lFocused ) -> nRowsSkipped // bTextColor, bBkColor, nClrLine, ...

... it must make any opertation instead the procedure change the variable inserting S or N @ 1, 6 LISTBOX oLbx FIELDS ..... oLbx:setArray(aData) oLbx:bLine:={|| { aData[oLbx:nAt,1],; IF( aData[oLbx:nAt,2]=='S', oBmpYes, oBmpNo ),; IF( aData[oLbx:nAt,3]=='S', oBmpYes, oBmpNo ),; IF( aData[oLbx:nAt,4]=='S', ...