PUBLIC otabform1 *SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE * Sorry, I dont have (over here) this library * CREATE TABLE TITAS26 (ctitas c(2), titas c(40)) INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c1","DESC C1") INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c2","DESC C2") INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c3","DESC C3") GO TOP otabform1=NEWOBJECT("tabform1") otabform1.Show RETURN ************************************************** *-- Form: tabform1 (c:\form1.scx) *-- ParentClass: *-- BaseClass: form *-- Marca de hora: 02/26/03 05:11:14 PM * DEFINE CLASS tabform1 AS form DoCreate = .T. Name = "Tabform1" ADD OBJECT txtctitas AS textboxX WITH ; ControlSource = "titas26.ctitas", ; Height = 23, ; Left = 213, ; MaxLength = 2, ; TabIndex = 2, ; Top = 99, ; Width = 38, ; Name = "txtCtitas" ADD OBJECT txttitas AS textboxX WITH ; ControlSource = "titas26.titas", ; Height = 23, ; Left = 211, ; MaxLength = 40, ; TabIndex = 4, ; Top = 140, ; Width = 288, ; Name = "txtTitas" *-- CHANGE/CHANGE/CHANGE ADD OBJECT cmd1 AS CMD *-- END OF CHANGE/CHANGE/CHANGE ENDDEFINE DEFINE CLASS textboxX AS textbox Comment = "" PROCEDURE ProgrammaticChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE InteractiveChange WAIT WINDOW "HOLA" ENDPROC ENDDEFINE *-- CHANGE/CHANGE/CHANGE DEFINE CLASS cmd AS COMMANDBUTTON PROCEDURE Click SELECT TITAS26 SKIP THISFORM.Refresh() ENDPROC ENDDEFINE *--END CHANGE/CHANGE/CHANGEClaudio