Que tal como estan miren tengo el siguiente problema tengo este codigo
Código:
Private Sub mshflex()
Call ConsultaPresupuesto
With msh
Set .DataSource = presupuestos1
.ColWidth(0) = 200
.ColWidth(1) = 1
.ColWidth(2) = 1
.ColWidth(3) = 1
.ColWidth(4) = 1
.ColWidth(5) = 5000
.ColWidth(6) = 5000
.ColWidth(7) = 5000
.ColWidth(8) = 5000
.ColWidth(9) = 5000
.ColWidth(10) = 5000
.ColWidth(11) = 2000
.ColWidth(12) = 1
.ColAlignmentFixed(1) = 3
.ColAlignmentFixed(2) = 3
.ColAlignmentFixed(3) = 3
.ColAlignmentFixed(4) = 3
.ColAlignmentFixed(5) = 3
.ColAlignmentFixed(6) = 3
.ColAlignmentFixed(7) = 3
.ColAlignmentFixed(8) = 3
.ColAlignmentFixed(9) = 3
.ColAlignmentFixed(10) = 3
.ColAlignmentFixed(11) = 3
.ColAlignmentFixed(12) = 3
.TextMatrix(0, 1) = "FECHA"
.TextMatrix(0, 2) = "CODIGO"
.TextMatrix(0, 3) = "TIPO"
.TextMatrix(0, 4) = "DEPARTAMENTO"
.TextMatrix(0, 5) = "CONCEPTO"
.TextMatrix(0, 6) = "SUBCONCEPTO 1"
.TextMatrix(0, 7) = "SUBCONCEPTO 2"
.TextMatrix(0, 8) = "SUBCONCEPTO 3"
.TextMatrix(0, 9) = "SUBCONCEPTO 4"
.TextMatrix(0, 10) = "SUBCONCEPTO 5"
.TextMatrix(0, 11) = "IMPORTE"
.TextMatrix(0, 12) = "FECHA1"
End With
End Sub
el cual me funciona perfectamente en un control mshflexgrid, pero cuando lo quiero cambiar a un msflexgrid me marca errores en la alineacion en el datasource, en fin en todos lados no se como deba de adecuar este codigo a un msflexgrid..........., esto realmente lo quiero hacer por q necesito eliminar filas q en su momento haya agregado al msflexgrid y bueno investigando creo q eso no lo puedo hacer en el mshflexgrid y en el msflexgrid si........ o me equivoco??
de antemano gracias por la ayuda
saludos