Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Set Skip in Grids
Message
De
03/01/1998 12:59:45
 
 
À
03/01/1998 12:22:25
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00069055
Message ID:
00069101
Vues:
51
>>In FPW if I opened 2 tables (1 parent 1 child and set skip on) then browse fields from both tables
>>the browse window would not duplicate the fields from the parent table, the cells would have "........." inside
>>them instead of repeating the same data.
>>
>>Is there anyway to get the same effect in a grid?
>>
>>TIA
>>
>>Bill
>Hey Bill,
>It's like that in grid too and I thought you were angry with me for not overriding it anyway.
>BTW check next few trial lines (for HTML code):
>
Centered and BOLD

>And a bulleted list :
>
  • List element 1

  • >
  • List element 2
  • List element 3

>And an ordered list :
>
  1. List element 1

  2. >
  3. List element 2
  4. List element 3


Pretty Nifty.

BTW, I'm finally finishing up working on you inGrid improvements.
I've been working on modifying it to accomodate 3 (or more) tables in the Pick List.
The primary problem I ran into was how to generically determine which table is related into which one depending
on the control.source. Finally gave up and just created a method that has to be modified for each instance.

Another issue.
>1. LOCAL	cHoldAlias,	cHoldTag, cAliasToSearch
>
>2. m.cHoldAlias = ALIAS()
>3. cAliasToSearch = substr(this.parent.controlsource,1,at(".",this.parent.controlsource)-1)
>4. SELECT (THIS.Parent.Parent.RecordSource)
>5. if	SEEK(UPPER(THIS.cSearchString),cAliasToSearch,this.cSeekTag)
>6.	if cAliasToSearch # THIS.Parent.Parent.RecordSource
>7.		=seek(eval(cAliasToSearch+"."+relation(1)),THIS.Parent.Parent.RecordSource,relation(1))
>8.	endif
>9.	IF THIS.nHoldRecord#RECNO(THIS.Parent.Parent.RecordSource)
>10.		THIS.lSeekMode=.T.
>11.	ENDIF
>12. ELSE
>13.	GO THIS.nHoldRecord in (THIS.Parent.Parent.RecordSource)
>14. ENDIF
>15. if cAliasToSearch = THIS.Parent.Parent.RecordSource and !empty(this.cOrderTag)
>16.	set order to tag (this.cOrderTag)
>17. endif	
Since the GotFocus method changes the RecordSource to cAliasToSearch are lines 6-8 needed?
In fact can't cAliasToSearch be replace with THIS.Parent.Parent.RecordSource in the method?

Bill
Bill Morris
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform