Subordinate browsers

[Natter]

Hi,

As I work, I need to subordinate one xbrowser to another. Is it possible to do this ?

[nageswaragunupudi]

Please clarify.
You mean linked browses?

[paquitohm]

Perhaps subordinate browses is a style of linked browse where browse number one shows parents and browse number two shows childs each parent

[Natter]

There are 2 xBrowse - oBrw1 and oBrw2. I need to nest oBrw2 into oBrw1.

Code: Select all  Expand view

SetParent(oBrw2:hWnd, oBrw1:hWnd)

I.e. I wanted to make a tree of nested xBrowse controls
However, nothing is working out

[nageswaragunupudi]

Something like this?
If so it can be customized for your exact needs.



code:

Code: Select all  Expand view

function ParentChildBrw

   field CODE
   local oDlg, oChild

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG STATE
   USE STATES NEW SHARED VIA "DBFCDX"
   SET RELATION TO CODE INTO CUSTOMER SCOPED
   GO TOP

   oChild  := XBROWSER "CUSTOMER" COLUMNS "STATE","CITY","SALARY" NOMODAL
   XBROWSER "STATES" SETUP ( oBrw:bChange := { || oChild:Refresh() } )

return nil

[Natter]

Yeah, it looks like it.