insert rows in MSFLEXGRID

[mutley]

Hi

I need to insert rows and to merge some rows

with grid   
   
   Do Until Rs.EOF
               .Rows = .Rows + 1
               .Row = .Rows - 1
               i = .Rows - 1
               
               
               
               .TextMatrix(i, 0) = rs!data1
               .TextMatrix(i, 1) = rs!data2
               .TextMatrix(i, 2) = rs!data3
               .TextMatrix(i, 3) = rs!data4
               .TextMatrix(i, 4) = rs!data5
               .TextMatrix(i, 5) = rs!data6
               .TextMatrix(i, 6) = Rs!GRUPOS
               
               
          
               
               Rs.MoveNext
               i = i + 1
               '****************
               j = j + 1
               '****************
        Loop
end with

rs!grupos is a string

when rs!grupos have only element like "01", grid will be with one row
but rs!grupos have more than a element "01;03;04;05;06;07" I would add other rows column zero, column one ...column five then
merge rows 0 to 5

[Spoo]

Mutley

This 1st post is just to lay things out so I can "see" if I understand your situation

Case 1: rs!grupos has 1 element:

  col  0     1     2     3     4     5     6
row i: data1 data2 data3 data4 data5 data6 01

Case 2: rs!grupos has 6 elements:

  col       0     1     2     3     4     5     6
row i+0:    data1 data2 data3 data4 data5 data6 01
row i+1:    data1 data2 data3 data4 data5 data6 03
row i+2:    data1 data2 data3 data4 data5 data6 04
row i+3:    data1 data2 data3 data4 data5 data6 05
row i+4:    data1 data2 data3 data4 data5 data6 06
row i+5:    data1 data2 data3 data4 data5 data6 07

Case 3: rs!grupos has 6 elements:

  col       0     1     2     3     4     5     6
row i+0:    data1 data2 data3 data4 data5 data6 01
row i+1:                                        03
row i+2:                                        04
row i+3:                                        05
row i+4:                                        06
row i+5:                                        07

Do you want it to look like ...

• Case 3?
• something else?

Spoo

[mutley]

Yes, It is case 3

[Spoo]

Mutley

OK, then maybe something like this

with grid   
   Do Until Rs.EOF
               .Rows = .Rows + 1
               .Row = .Rows - 1
               i = .Rows - 1
               .TextMatrix(i, 0) = rs!data1
               .TextMatrix(i, 1) = rs!data2
               .TextMatrix(i, 2) = rs!data3
               .TextMatrix(i, 3) = rs!data4
               .TextMatrix(i, 4) = rs!data5
               .TextMatrix(i, 5) = rs!data6
               v1 = Split(Rs!GRUPOS, ";")
               v2 = UBound(v1)
               for j = 0 to v2
                   .TextMatrix(i+j, 6) = v1(j)
               next j
               Rs.MoveNext
               i = i +v2 + 1
        Loop
end with

Comments

1. new/altered lines of code are higlighted in blue
2. the Split() splits the string using ";" and turns v1 into an array
3. v2 becomes the loop counter
   
   • if only 1 element, ie, "03", then v2 = 0
   • if 6 elements, then v2 = 5
4. only col 6 is under the influence of the inner loop j
5. I don't really see any need to merge columns.

Does that do the trick for you?

Spoo