Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Strange problem
Message
From
10/08/2004 10:18:05
Jerry Tovar
Dana Corporation Dana It
Maumee, Ohio, United States
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Strange problem
Miscellaneous
Thread ID:
00932035
Message ID:
00932035
Views:
67
Can someone try the following code to see if they get the same results that I get.

I am trying to create a cursor that I will later use as an HTML table. This cursor has 2 extra columns used as Edit and Delete columns for the HTML table.
The Edit column is created fine.

The problem is with the Delete column. The string created in the Delete field of the cursor result is missing the question mark.

For example, the string in the Edit field in the cursor looks this:
/wc.dll?myapp~myproc~ etc...
But the string in the Delete field in the cursor looks like this:
/wc.dll myapp~myproc~ etc...

Why is the question mark missing?

The following 2 examples should be reproduceable.

Example 1 shows the problem with the missing question mark in the Delete field. I use a constant(TAG1) in both the Edit and Delete fields.

Example 2 works fine but I use a var(lc_tag1) instead of constant(TAG1). But I only use the var in the Delete field. Thats the only way I can make this work.

What could I be missing?
***Example 1: The Delete column is missing the question mark after /wc.dll
#DEFINE TAG1 "<A HREF='/expert/wc.dll?"
#DEFINE TAG2 "</A>"

CREATE CURSOR customer (cid I, name C(10), address C(10))
INSERT INTO customer (cid, name, address) ;
VALUES (1, [Tom], [123 Main])
INSERT INTO customer (cid, name, address) ;
VALUES (2, [Bob], [123 South])

SELECT customer.name AS person, ;
customer.address AS address, ;
TAG1 + ;
"myapp~myproc~EDITRECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ;
"Edit " + ;
TAG2 AS Edit, ;
TAG1 + ;
"myapp~myproc~DELETERECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ;
"Delete " + ;
TAG2 AS Delete ;
FROM customer ;
INTO CURSOR c_customer NOFILTER
**************


***Example 2: This works but only if I use a var instead of the constant.
#DEFINE TAG1 "<A HREF='/expert/wc.dll?"
#DEFINE TAG2 "</A>"

lc_tag1 = "<A HREF='/expert/wc.dll?" &&Works with var.

CREATE CURSOR customer (cid I, name C(10), address C(10))
INSERT INTO customer (cid, name, address) ;
VALUES (1, [Tom], [123 Main])
INSERT INTO customer (cid, name, address) ;
VALUES (2, [Bob], [123 South])

SELECT customer.name AS person, ;
customer.address AS address, ;
TAG1 + ;
"myapp~myproc~EDITRECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ;
"Edit " + ;
TAG2 AS Edit, ;
lc_tag1 + ;
"myapp~myproc~DELETERECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ;
"Delete " + ;
TAG2 AS Delete ;
FROM customer ;
INTO CURSOR c_customer NOFILTER
*************
Thanks,

Jerry
Next
Reply
Map
View

Click here to load this message in the networking platform