Una de las preguntas habilítales es como podemos hacer para poder seleccionar múltiples registros en un grid.
En este caso utilizamos un checkbox para hacer la selección de los registros....
Public oForm
oForm = Createobject("FrmGrid")
oForm.AddObject("Grid1","Grid")
With oForm.Grid1
.ColumnCount = 3
.Height = 288
.Width = 320
.Left = 24
.Top = 24
.Column1.Width= 17
.Column1.Header1.Caption= ""
.Column1.AddObject("Check1","CheckBox")
.Column1.Check1.Visible
= .T.
.Column1.CurrentControl= "Check1"
.Column1.Sparse= .F.
.Column2.Width= 50
.Column2.Header1.Caption= "Código"
.Column3.Width= 194
.Column3.Header1.Caption= "Nombre"
.SetAll("DynamicBackColor","IIF(Ok, RGB(0,220,210), RGB(255,255,255))", "COLUMN")
.Visible = .T.
Endwith
oForm.Visible = .T.
Define Class FrmGrid As Form
Top = 0
Left = 0
Height = 334
Width = 376
DoCreate = .T.
Caption = "Grid multiselección"
WindowType = 1
WindowState
= 0
Name = "FrmGrid"
Procedure Load
Use Home() + "SamplesDataemployee.dbf"
Select .F. As OK, Emp_ID, Trim(Last_Name)+" " + Trim(First_Name) ;
From
Employee Into Cursor Empleados Readwrite
EndProc
Procedure Unload
Use In Employee
EndProc
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
