Hola otra vez, estoy usando una mshflexgrid y cuando abro el programa sale
un cartel para aceptar controles activex no seguros, alguien tiene idea como
puedo omitir el cartel.
Otra, en mshflexgrid las fechas salen todas con el mes delante. Como puedo
controlar eso? ahi va el codigo que uso.
Gracias y Saludos.
Sub ControlAdoc()
CnnAdo
Rst.Open "SELECT * FROM Lista ", Cnn, adOpenKeyset, adLockOptimistic
With Adodc1
.ConnectionString = Cnn
.RecordSource = Rst.Source
.Refresh
End With
Set MSHFlexGrid1.DataSource = Adodc1
With Me.MSHFlexGrid1
.ColWidth(0) = 400
.ColWidth(1) = 800
.ColWidth(2) = 2000
.ColWidth(3) = 2000
.ColWidth(4) = 1300
.ColWidth(5) = 1300
.ColWidth(6) = 1000
.ColWidth(7) = 1200
.ColWidth(8) = 1200
For i = 1 To Rst.Fields.Count
.ColAlignmentFixed(i) = 4
Next
.AllowUserResizing = flexResizeColumns
End With
CerrarCnnAdo
End Sub
Leer las respuestas