Borrar estructura de un MSHFLEXGRID

[manedf]

Que tal !!
Quisiera saber si es posible borrar la estructura de un MSHFLEXGRID ya que tengo un textbox que cuenta el numero de datos que presenta el MSHFLEX.... por lo tanto cuando hago una consulta que no tiene ningun dato lo unico que logro es borrar los datos pero la estructura no. entonces el textbox que cuenta el numero de datos me da el numero de la consulta anterior porque me borro los datos pero no la estructura.

Ademas cuando salgo de ese form despues de una consulta y vuelvo a regresar me deja la estructura de la consulta anterior.

Con esta instruccion borro los datos
MSHFlexGrid1.Clear

Con esta instruccion pense que podia borrar la estructura pero no lo hace
MSHFlexGrid1.ClearStructure

Gracias, Espero su ayuda

[hernanmdq]

MSHFlexGrid1.cols = 0
MSHFlexGrid1.rows = 0

Con eso desaparece todo.

Salu2.

[manedf]

Gracias hernanmdq, pero como dices borra TODO inclusive los encabezados de cada columna por lo tanto la proxima vez que realizo una consulta aparecen los datos pero el encabezado de cada columna ya no aparece. ¿ Hay alguna manera de que aparezcan?

[hernanmdq]

Los escribes de nuevo!

O en ves de 0 pones 1 y quedan los encabezados

MSHFlexGrid1.rows = 1

Salu2.

[manedf]

Ya habia intentado poner.

MSHFlexGrid1.rows = 1
MSHFlexGrid1.cols = 5 ( No. de columnas de mi base)

al hacer esto me deja los encabezados pero cuando vuelvo a hacer otra consulta quita los encabezados y los sustituye por datos de mi base.

[manedf]

Ya habia intentado poner.

MSHFlexGrid1.rows = 1
MSHFlexGrid1.cols = 5 ( No. de columnas de mi base)

al hacer esto me deja los encabezados pero cuando vuelvo a hacer otra consulta quita los encabezados y los sustituye por datos de mi base.

quiza el problema esta en la asignacion de mis encabezados, asi esta mi codigo para llenar el MSHflexgrid

SQL = "SELECT Id_Cliente as Cliente, No_Cuota as Cuota WHERE (((Pagos.Id_Cliente)=" & Me.Text1.Text & "));"
Set rst = GETRECORD(SQL, Servidor, optimista)
If rst.RecordCount > 0 Then
Me.MSHFlexGrid1.ColWidth(0) = 600
Me.MSHFlexGrid1.ColWidth(1) = 900
Me.MSHFlexGrid1.ColWidth(2) = 1800
Me.MSHFlexGrid1.ColWidth(3) = 1200
Me.MSHFlexGrid1.ColAlignment(1) = 7
Set MSHFlexGrid1.DataSource = rst

[ManuNic]

puedes limpiar con la propiedad clear flex.clear, pero siempre que tu le asignes una nueva consulta al grid, tendras que formatearlo, yo lo que hago es una sub que me formatea y cada vez que le asigno un recorset llamo al sub para farmatear
set mshflex.datasource = rst
formatogrid