Mshflexgrid control (Copy entire Row from one to another)

[sansann]

I m working on project. The idea is, select 1 row and add to another Msflexgrid. Instead of 20 rows i might want to select 5 or 10 rows only from Mshflexgrid1 to be add in Mshflexgrid2.

coding bellow manage to copy all the rows form Mshflexgrid1 to Mshflexgris2.

WRow as Long
Dim WCol as Long

MSHF2.Clear
MSHF2.Rows = MSHF1.Rows
MSHF2.Cols = MSHF1.Cols

For WRow = 1 to MSHF1.Rows -1
MSHF1.Row = WRow
MSHF2.Row = WRow
For WCol = 0 to MSHF1.Cols - 1
MSHF1.Col = WCol
MSHF2.Col = WCol
MSHF2.Text = MSHF1.Text
Next WCol
Next WRow


But what i need is to select certain row form MSHF1 and copy the entirerow into MSHF2 which is control by different ADO.

Somebody please help me.

[PdBeer]

I'm not sure if this will be the most efficient way of doing it, but you can try.

Use the MSHFlexgrid_click sub and get the row number that was clicked by using MSHFlexgrid.row. Then search the ADOR recordset to the (MSHFlexgrid.row-1) indexed record. Add a record to the other ADOR recordset and read the data field by field into the new record.

For example: (Say temp1 is the one recordset and temp2 the other)

Private Sub MSHFlexGrid1_Click()
temp1.MoveFirst
For i = 1 To MSHFlexGrid1.row - 1
temp1.MoveNext
Next
temp2.addnew
For i=0 to MSHFlexGrid1.col-1
temp2.fields(i).value = temp1.fields(i).value
Next
End Sub