Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Stuck with combobox control source max length
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00047952
Message ID:
00047961
Vues:
22
José,

I did *not* do detailed calculation, but I think you could save enough lenght to fit if you revised the original code to use real short 'aliases' for the file names. I am PRESUMING that these work with INNER/OUTER JOIN code.

What I mean is something along the lines of. . .

FROM (((Autosoft!Coleur A INNER JOIN Autosoft!Marque B ON A.cMarqueID = B.cID. . .

Doing this for all files named, and using the A B C etc as appropriate throughout the code will shorten it a lot. Maybe enough.

Good Luck,
Jim N

>Hi,
>
>For a combobox I need the following code as rowsource.
>
>this.RowSource = "SELECT cCode, cLib, couleur.cid DISTINCT " + ;
> " FROM (((Autosoft!Couleur INNER JOIN Autosoft!Marque ON couleur.cMarqueId = Marque.cid) " + ;
> " INNER JOIN Autosoft!Tarif ON Marque.cID = Tarif.cMArqueID) " + ;
> " INNER JOIN Autosoft!Vehicule ON Tarif.cID = Vehicule.cTarifId) " + ;
> " WHERE Couleur.cTypeId = [2] AND Vehicule.cTarifId = EVAL(this.TAG) " + ;
> " ORDER BY Couleur.cCode INTO CURSOR cVPClrEx "
>
>In the control TAG, I put the value "v_vehicule.cTarifID"
>
>This would work fine if did not exceed the 256 chars limit. But this one is far too long and there is
>no way to make it shorter.
>
>So I decided to take another road, set my Row source Type to 4 (QPR) and send the code back to
>a .QPR file. Sounds easy? Yeah. But it fails, because of this.TAG (the .QPR is outside of the object).
>
>SELECT cCode, cLib, couleur.cid DISTINCT ;
>FROM (((Autosoft!Couleur INNER JOIN Autosoft!Marque ON couleur.cMarqueId = Marque.cid) ;
>INNER JOIN Autosoft!Tarif ON Marque.cID = Tarif.cMArqueID) ;
>INNER JOIN Autosoft!Vehicule ON Tarif.cID = Vehicule.cTarifId) ;
>WHERE Couleur.cTypeId = [2] AND Vehicule.cTarifId = EVAL(this.TAG) ;
>ORDER BY Couleur.cCode INTO CURSOR cVPClrEx
>
>Any idea how to get around this one?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform