PUBLIC otabform1 SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE 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 txttitas.ProgrammaticChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE txttitas.InteractiveChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE command1.Click SELECT TITAS26 SKIP THISFORM.Refresh() ENDPROC ENDDEFINEIt certainly will solve the problem..