16/05/2005, 11:37
|
 | | | Fecha de Ingreso: febrero-2005 Ubicación: Venezuela
Mensajes: 524
Antigüedad: 20 años, 3 meses Puntos: 1 | |
| Para trasladar
Dim a As String
MSFlexGrid1.Row = 1
MSFlexGrid2.Row = 1
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
a = MSFlexGrid1.Text
MSFlexGrid2.Col = i
MSFlexGrid2.Text = a
Next
Para borrar
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.Text = ""
Next
__________________
ホルヘ・ラファエル・マルティネス・レオン |