Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Binding controls to fields in table
Message
 
À
22/01/2015 13:19:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01614097
Message ID:
01614145
Vues:
28
Okay, this is what my safe selct code looks like:
* m_PopulateSigners

LOCAL lcOldAlias

m.lcOldAlias = ALIAS()

WITH THISFORM

IF !.p_IscboNewSignerRefreshed

SELECT csrCustomerSigners2
SET SAFETY OFF
ZAP
SET SAFETY ON

INSERT INTO csrCustomerSigners2 (FULLNAME, VALIDDATE, INVALIDDATE, FIRSTNAME, ;
LASTNAME, CUSTNAME, CUSTOMERFKVALUE, PHONENUMBER,KEYVALUE) ;
SELECT ;
CUSTOMERSIGNERS.FULLNAME, ;
CUSTOMERSIGNERS.VALIDDATE, ;
CUSTOMERSIGNERS.INVALIDDATE, ;
CUSTOMERSIGNERS.FIRSTNAME, ;
CUSTOMERSIGNERS.LASTNAME, ;
CUSTOMERSIGNERS.CUSTNAME, ;
CUSTOMERSIGNERS.CUSTOMERFKVALUE, ;
CUSTOMERSIGNERS.PHONENUMBER, ;
CUSTOMERSIGNERS.KEYVALUE ;
FROM CUSTOMERSIGNERS ;
WHERE !DELETED() ;
AND CUSTOMERSIGNERS.CUSTOMERFKVALUE = RLogBook.CustFKValu ;
ORDER BY FULLNAME

MESSAGEBOX("CustoCusto List Refreshed!", 0, "Very Refreshing", 1000)

ENDIF && if !.p_IscboNewSignerRefreshed

.p_IscboNewSignerRefreshed = .T.
.pageframe1.page2.cboNewSigner.REFRESH()

ENDWITH && Thisform

SELECT(lcOldAlias)

RETURN
Driving toward a Tactical Edge
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform