Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bindevents and classes
Message
From
09/11/2007 15:49:16
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
09/11/2007 15:20:02
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Database:
MS SQL Server
Miscellaneous
Thread ID:
01267991
Message ID:
01268125
Views:
22
>>You can have this code anywhere:
>>
>>
*-- FixMyCombo.prg
>>lparameters toCombo
>>LOCAL i
>>addproperty(toCombo, "aWizFList[1]")
>>=AFIELDS(toCombo.aWizFList)
>>FOR m.i = FCOUNT() TO 1 STEP -1
>>  IF INLIST(toCombo.aWizFList[m.i,2],"G","M","U")	&&Memo field
>>    =ADEL(toCombo.aWizFList,m.i)
>>    DIMENSION toCombo.aWizFList[MAX(1,ALEN(toCombo.aWizFList,1)-1), ALEN(toCombo.aWizFList, 2)]
>>  ENDIF
>>ENDFOR
>>toCombo.RowSourceType = 5
>>toCombo.RowSource = "this.aWizFList"
>>toCombo.VALUE = toCombo.LIST[1]
>>
>>Now let's suppose your 2nd form is the createobject()ed form - oFrm2, and the combo in case is on it, oFrm2.oCbo5 (you'll have to supply actual variables, object names). You can simply
>>
>>FixMyCombo(oFrm2.oCbo5)
>>
>>somewhere between createobject()ing the form and ofrm2.show().
>
>Okay, that makes sense. I will have to think about this over the weekend. Thank you for your help.
>I may be back with more questions next week.

Welcome - and it won't be a Friday so you'll have more of us chiming in.

>Have a great weekend.

You too.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Reply
Map
View

Click here to load this message in the networking platform