31/08/2006, 16:51
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| 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 |