Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Speaking French...
Message
 
 
To
09/08/2000 12:21:34
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00402422
Message ID:
00402869
Views:
10
>>>>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.


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.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform