FiveTech Support Forums

Dear All,

I need and informatioin from TSbrowse but I don't konw how to get it when I click on column in each TSbrowse (cCaption or cText) .

Best regards,
Dutch

Sorry Dutch,

i don't understand. What information do you want from your browse?

Regards,
Detlef

Dear Detlef,

Thanks for prompt reply. I mean the text in each column of sbrowse.
for examples
Firstname Lastname Age
1 Kevin Smith 30
2 John Dely 25
3 David Sim 28
4 Ken Donald 34

When I click on column Firstname and row no. 2. The information I need is "John".

Regards,
Dutch

Dear Detlef,

Thanks for your help, I've got it.

Eval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData )

Regards,
Dutch

dutch wrote:Dear Detlef,

Thanks for your help, I've got it.

Eval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData )


Regards,
Dutch

Dutch,

If you are browsing a database, the database pointer is at the record that is being displayed, so you can read the data right out of the database.

James

Dear Detlef,

Thanks for another good idea but I try to use Drag and Drop but I cannot get the destination ::bData. Because I can get only nRow but I don't know what the Record number or data in this Row. How can I get the ::bData or Record No. from this drop row?

oBrw:oDragCursor := oCursor
oBrw:bDragBegin := { |nRow,nCol,Flags,Self| SetDropInfo( right(Eval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData ),10)+ ;
Eval( oBrw:aColumns[ 2 ]:bData ) ) }

oBrw:bDropOver := { |uDropInfo,nRow,nCol,nKeyFlags| if(uDropInfo<>nil, ( MoveRms( uDropInfo+str( Int((nRow-25)/20),3 ), oBrw ) ), ) }

Now I use this
Function MoveRms( cData, oLbx )
oLbx:lNoLiteBar := .T.
oLbx:GoTop()
for x := 1 to val(right(cData,3))-1
oLbx:GoDown()
next
oLbx:lNoLiteBar := .F.
return

Best regards,
Dutch

Dear James,

I use the master data is database but the ::aColumns are not data in record. I need the data from Drop row but I don't know how to get it.

Best regards,
Dutch

dutch wrote:Dear Detlef,

Thanks for another good idea but I try to use Drag and Drop but I cannot get the destination ::bData ...

#define POS_BRW    1
#define POS_FLD    2

aColFieldPos := {; // BrwPos, FieldPos
                    { 1,      1 },; // oBrw:Column 1 shows field# 1
                    { 2,      2 },; // oBrw:Column 2 shows field# 2
                    { 3,      5 } ; // oBrw Column 3 shows field# 5 
                }

/* now you just do  */

nPos := ascan( aColFieldPos, {|a| a[ POS_BRW ] == oBrw:nCell })

if nPos > 0 
   xxx->( fieldPut( aColField[ nPos ][POS_FLD ], xValue ) )
endif

Dear Detlef,

I've got it and it is the best way for now, if it cannot get from TSbrowse. How can I make array for each browse row during browse create?

Thanks&Regards,
Dutch

Dutch,

TSBrowse (and all the browses) don't support dropping on a row, only dropping on a table. You will probably have to modify the browse source code to get this capability. I do think there was some discussion about this awhile back. You micht try doing a forum search.

>I've got it and it is the best way for now, if it cannot get from TSbrowse. How can I make array for each browse row during browse create?

The easiest way it to browse a database object. A database object already has a built-in buffer array, aBuffer. All the data from the record is read into this array each time the record pointer is moved.

James

dutch wrote:Dear Detlef,

I've got it and it is the best way for now, if it cannot get from TSbrowse. How can I make array for each browse row during browse create?

Thanks&Regards,
Dutch

dbf->( dbEval( { || aadd( aYourArray, --- your data --- ) } ) )

Dear Detlef & James,

I've got it. Thank you very much for your ideas.

Regards,
Dutch