Como puedo llenar un cuadro de lista con 4 distintas columnas apartir de cuadros de texto, necesito que al entrar a la lista sea en distintas columnas no siendo una sola separando los datos por espacios, gracias
1 respuesta
Respuesta de miron
1
1
miron, ¡¡La vida es un constante movimiento, la quietud es la muerte!!
************************************************** *-- Form: form1 (e:\fuentes\vfoxpro\esapah\cliente\prueba\eliminar.scx) *-- ParentClass: form *-- BaseClass: form *-- Marca de hora: 03/15/03 10:02:01 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 250 Width = 508 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Alignment = 3, ; Value = (Date()), ; Height = 23, ; Left = 0, ; Top = 12, ; Width = 100, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; Alignment = 3, ; Value = 0.00, ; Height = 23, ; Left = 0, ; Top = 60, ; Width = 100, ; Name = "Text2" ADD OBJECT text3 AS textbox WITH ; Height = 23, ; Left = 0, ; Top = 108, ; Width = 100, ; Name = "Text3" ADD OBJECT text4 AS textbox WITH ; Value = "Hola", ; Height = 23, ; Left = 0, ; Top = 156, ; Width = 100, ; Name = "Text4" ADD OBJECT command1 AS commandbutton WITH ; Top = 12, ; Left = 120, ; Height = 27, ; Width = 84, ; Caption = "Agregar", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 60, ; Left = 120, ; Height = 27, ; Width = 84, ; Caption = "Agregar", ; Name = "Command2" ADD OBJECT command3 AS commandbutton WITH ; Top = 108, ; Left = 120, ; Height = 27, ; Width = 84, ; Caption = "Agregar", ; Name = "Command3" ADD OBJECT command4 AS commandbutton WITH ; Top = 156, ; Left = 120, ; Height = 27, ; Width = 84, ; Caption = "Agregar", ; Name = "Command4" ADD OBJECT list1 AS listbox WITH ; ColumnCount = 4, ; ColumnWidths = "64,64,64,64", ; Height = 169, ; Left = 216, ; Top = 36, ; Width = 264, ; Name = "List1" PROCEDURE command1.Click Thisform.List1.Additem(Dtoc(Thisform.text1.value),1,1) ENDPROC PROCEDURE command2.Click if Thisform.List1.Listcount>0 then Thisform.List1.Additem(Allt(Str(Thisform.text2.value,5,2)),1,2) Else Thisform.List1.list(2,1)=Allt(Str(Thisform.text2.value,5,2)) endif ENDPROC PROCEDURE command3.Click if Thisform.List1.Listcount>0 then Thisform.List1.Additem(Allt(Thisform.text3.value),1,3) Else Thisform.List1.list(3,1)=Allt(Thisform.text3.value) endif ENDPROC PROCEDURE command4.Click if Thisform.List1.Listcount>0 then Thisform.List1.Additem(Allt(Thisform.text4.value),1,4) Else Thisform.List1.list(1,4)=Allt(Thisform.text4.value) endif ENDPROC ENDDEFINE * *-- EndDefine: form1 ************************************************** Ojo no esta depurado, te lo hice como guia y espero te sirva.