Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Speaking French...
Message
From
09/08/2000 14:21:09
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00402422
Message ID:
00402928
Views:
11
>>>>>Hi everyone,
>>>>>
>>>>>Just curious, who here can speak French? I've suggested somebody to use her native language, but unfortunately I don't know French :(
>>>>
>>>>I speak french.
>>>
>>>Great, Denis.
>>>Could you please translate a message for me (see in this thread)?
>>>
>>>Thanks in advance.
>>
>>I would translate this:
>>
>>J'ai tester le fait de mettre les selection dans un tableau mais mes collÕgues prÈfÕre travaillÈ avec des curseur alors j'ai laiser le curseur de Ceti Basoz et lors du traitement je selection juste les ligen where iselected=.T.
>>
>>
>>Mais je veux faire un menu sur mon click droit (pour le grid) et utilisÈ les propriÈtÈ de la class mais impossible d'y accÕder comment je peux faire
>>
>>
>>
>>into this
>>
>>
>>I tested putting the selections in an array but my colleagues prefers to work with cursors so I decided not using the cursor of Cetin Basoz and while processing I select just the lines "where iselected = .t."
>>
>>But I want to make a menu on my right-click (for the grid) and use proprieties of the class but it's impossible to access them. How can I do it?
>>
>>
>>
>>Here it is Nadya. I hope that my translation will let you understand more the problem.
>

Nadya,

I sent the solution to Sylvain.
>
>Yes, thanks. I think I almost understand the problem. Now could you please translate my answer back to French (sorry for using you).
>
> You can sublass Cetin's MultiSelGrid to your own class and add method: GenerateResultTable or something. In this method you can put this code:
>
> local lcDir, lcTableName, lnSelect
> lnSelect=select()
> lcDir="\Data\" && put here the directory name, where you want to store the table with selections, this table now would be accessable anywhere in the system
> lcTableName='tblSelected' && give the name you want
> if used(lcTableName)
>   use in (lcTableName) && Close the table
> endif
> erase (lcDir+lcTableName+'.*')
> select field1, field2, .. from (this.RecordSource) where lSelected into table  (lcDir+lcTableName)
> * Index the table if needed
>  use in (lcTableName)
>  select (lnSelect) && Return back
>
>
> Now you have a table with selections available for you and you can use it. There are could be bunch of other ways to achieve what you want, but this solution is probably the simplest. Let me know, if it's enough.
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Previous
Reply
Map
View

Click here to load this message in the networking platform