Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Basic User Input to search and report
Message
De
10/04/2000 06:15:22
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00355661
Message ID:
00357456
Vues:
18
Hi Roi,

Still lost. If you could help me with this one I'll never ask again.

1. I used the modify command to create "CreateReportCursor"
2. In it I put the folling code.

LOCAL cGroupCode, cCompanyName, dStart, dEnd
WITH THISFORM
cGroupCode = .textbox1.VALUE
CcOMPANYnAME = .textbox2.VALUE
dStart = .text3.value
dend = textbox4.
ENDWITH
SELECT test.group_code, payment.ins_co_name, payment.fromdate, payment.todate;
FROM test, payment ;
WHERE test.group_code == cGroupCode ;
AND payment.ins_co_name == cCompanyName ;
AND payment.fromdate == dStart ;
AND payment.todate == dEnd ;
INTO Cursor ReportPreview
IF _TALLY != 0
cReturn = .T.
ELSE
cReturn = .F.
ENDIF

RETURN cReturn

3. I then opened the form search1.
4. I opened the add meathord option and added the meathord CreateReportCursor.
5. I the opened the command button of my search button and added the foling code to the click event option.
cResult = thisform.CreateReportCursor()
if cResult
wait window 'Cursor is there, do your preview'
else
wait window 'No records, notify the user'
endif

The problem is, no mater what I put in, it comes back with the wait window 'Cursor is there, do your preview' This happens even if theres no data entered.

Please Help
John
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform