Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Add a field to a cursor
Message
De
31/01/2001 15:24:11
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00470825
Message ID:
00470874
Vues:
36
Hi Nick,

It is for a report. Here is my working version.

nconhandle = sqlexec(nhandle, csqlstatement, 'temp_cursor')

ctemp_string = "SELECT temp_cursor.* "
FOR nfld_cntr = 1 TO ALEN(specprojarray) / 2
ctemp_fld = STRTRAN(ALLTRIM(spec_proj_array(nfld_cntr, 2))," ", "_")
ctemp_string = ctemp_string + ", 0000.00 AS " + ctemp_fld
ENDFOR
ctemp_string = ctemp_string + " FROM temp_cursor INTO CURSOR temp_cursor"
&ctemp_string

IF USED('empl_cursor')
SELECT empl_cursor
USE
ENDIF

USE DBF('temp_cursor') AGAIN IN 0 ALIAS empl_cursor

This works great.

Thanks to both you & James for you help
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform