TXBROWSE LINE NUMBER?

[Horizon]

Hi,

How can I add a line number column in TXBrowse. (Not. recno())

Thanks,

[ukoenig]

Hello Hakan,
You can add a Column to get Row-Numbers like :

oCol := oLbx:AddCol()
oCol:cHeader := "No."
oCol:bStrData := { || (1)->(ORDKEYNO()) }
oCol:nWidth := 60

Best Regards
Uwe

[nageswaragunupudi]

The above example works only for DBFs.

The example given below works for XBrowse of any data ( DBF, ADO, TDataBase, Array or any object being browsed )

Code: Select all  Expand view

  ADD TO oBrw AT 1 DATA oBrw:KeyNo() HEADER 'No' PICTURE '9999'

If you prefer the OOPs way of coding

Code: Select all  Expand view

  WITH OBJECT oBrw:InsCol( 1 )
      :bEditValue    := { || oBrw:KeyNo() }
      :cEditPicture  := '9999'
      :cHeader       := 'LineNo'
   END
 

FWH documentation advises not to use :bStrData directly ( though it works for reasons of backward compatibility). Preferred way is to assign the :bEditValue and assign picture if needed to cEditPicture.

[Horizon]

Thanks Uwe, nageswaragunupudi

It works fine.