Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Strange problem
Message
De
10/08/2004 10:18:05
Jerry Tovar
Dana Corporation Dana It
Maumee, Ohio, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Strange problem
Divers
Thread ID:
00932035
Message ID:
00932035
Vues:
66
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform