Ayuda con codigo para checkbox

[hunter18]

Utilizo 12 controles checkbox y el codigo realmente marea, alguien me puede ayudar a optimizarlo para no repetir tanta veces la misma linea de codigo

Código PHP:

  If DataGrid1.Columns(3).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkClie.Value = Chkx 
 
If DataGrid1.Columns(4).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkProd.Value = Chkx 
 
If DataGrid1.Columns(5).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkProforma.Value = Chkx 
 
If DataGrid1.Columns(6).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkBoleta.Value = Chkx 
 
If DataGrid1.Columns(7).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkFactura.Value = Chkx 
 
If DataGrid1.Columns(8).Text = "-1" Then Chkx = 1 Else Chkx = 0 
Form1.chkEmp.Value = Chkx 
 
Form1.Show 1  
   

[David]

Lo más conveniente es que indexes los checkbox, así podrás recorrerlos con un bucle for y comparar con el valor de la columna del DataGrid.

[gogupe]

Primero lo que tienes que hacer es que a cada checkbox (chkClie,chkProd...) Tienes que ponerlo todos el mismo nombre, al hacer esto, llevará cada control un indice, de ahí que se indexa como te ha dicho David, quedando algo como: Check(0), Check(1)...

Y el código quedaría mas o menos asi.

Código:

Dim I as integer

For I=3 to 8
    If DataGrid1.Columns(I).Text = "-1" Then 
	Form1.check(I-3)=-1
    Else
	Form1.check(I-3)=0
    endif
Next

Saludos