Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Add a field to a cursor
Message
From
31/01/2001 15:24:11
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00470825
Message ID:
00470874
Views:
38
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
Previous
Reply
Map
View

Click here to load this message in the networking platform