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" ENDDEFINE DEFINE CLASS textboxX AS textbox Comment = "" PROCEDURE ProgrammaticChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE InteractiveChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE Click SELECT TITAS26 SKIP THISFORM.Refresh() ENDPROC ENDDEFINEHTH