Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Strange problem
Message
 
 
To
10/08/2004 10:18:05
Jerry Tovar
Dana Corporation Dana It
Maumee, Ohio, United States
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00932035
Message ID:
00932047
Views:
25
Hi Jerry,

I ran your code in VFP8SP1 and '?' is pesent in both Edit and Delete columns.

>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
>*************
>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform