Specific row transfer from one mshflexgrid to another mshflexgrid

Question

0.00/5 (No votes)

See more:

Hi,

I am trying to transfer a full row with data from mshflexgrid1 to mshflexgrid2 after clicking on a texbox keydown event.

MSHFLEXGRID1 has records and MSHFLEXGRID2 is empty.

Please help.

VB

With MSHFlexGrid1
            
For RecNo = 1 To .rows - 1
    .Row = RecNo
    '''''if record is exist in mshflexgrid1 then continue
    If Val(.TextMatrix(.Row, 1)) = Val(Text8.Text) Then
        .Row = RecNo
        .Col = 0
        .FillStyle = flexFillRepeat
        Set .CellPicture = LoadPicture(App.Path & "\Images\CHECKBLU.GIF")
        .CellBackColor = vbGreen
        .Col = 1
        '.ColSel = 0
        .TextMatrix(.Row, 0) = "1"
        Text8.Text = ""
        ''''''''''''''''''and want to remove using below code from mshflexgrid1
        '''MSHFlexGrid1.RemoveItem (MSHFlexGrid1.Row)

        Exit For
    End If
Next

What I have tried:

I tried this, but no luck.

VB

Dim A As Integer
Dim B As Integer
Dim J As Integer

With MSHFlexGrid2
    A = MSHFlexGrid2.rows - 1
    B = MSHFlexGrid1.RowSel

    For J = 1 To MSHFlexGrid1.Cols - 1
        If Val(MSHFlexGrid1.TextMatrix(J, 1)) = Val(Text8.Text) Then
            MSHFlexGrid2.TextMatrix(A, J) = MSHFlexGrid1.TextMatrix(J, J)
        End If
    Next J
    .AddItem ""
End With

Posted 7-Feb-22 13:06pm

khan2010

Updated 8-Feb-22 10:37am

Sean Ewington

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2022-02-08T03:04:00

Your loop should work backwards through the grid. Instead of

VB

With MSHFlexGrid1
     For RecNo = 1 To .rows - 1

use

VB

With MSHFlexGrid1
     For .rows - 1 to 1 Step -1

You might also want to consider if you are processing all of the rows in the grid.

The following tries to explain why you need to go backwards...

Imagine you have these rows

Row Number   Content    Notes
  1          aaaaaa     Original Row 1
  2          bbbbbb     Original Row 2
  3          cccccc     Original Row 3
  4          dddddd     Original Row 4

If we delete the first row this is what happens (Hint - look at the Row Numbers)

Row Number   Content    Notes
  1          bbbbbb     Original Row 2
  2          cccccc     Original Row 3
  3          dddddd     Original Row 4

Delete (what is now) Row 2 now

Row Number   Content    Notes
  1          bbbbbb     Original Row 2
  2          dddddd     Original Row 4

So you thought you were going to delete "aaaaaa" and "bbbbbb" but instead deleted "aaaaaa" and "cccccc".

If you work backwards instead, still trying to delete "aaaaaa" and "bbbbbb" step 1 ends up like this

Row Number   Content    Notes
  1          aaaaaa     Original Row 1
  2          cccccc     Original Row 3
  3          dddddd     Original Row 4

I.e. Original Row 2 is deleted, the subsequent rows (that we are not interested in) move up in rank but Row 1 stays exactly where it was at the start of the loop.