MSHFlexGrid: get column and row total?

Dear VB Pros and Friends:

Questions about MSHFlexGrid with VB6.

adoRSAnalysis as ADODB.Recordset and has 5 fields, each is assigned to mshflexgrid

from column 1 to 5.

Column 1 is the ItemName, Columns 2 to 5 are the numbers, and Column 6 is

the total for columns 2 to 5.

Question 1: How to get the row total and show it on column 6?

Question 2: how to get the column total for columns 2 to 5 on the last row

(let¡¯s say, there are 20 records).

They should look like this:

ItemName Column1 ... ... Column5 Total

Row1

Row2

...

...

Row20

Total

Column 6 and the last row with ¡°Total¡± are the run-time results.

Thanks

Re: MSHFlexGrid: get column and row total?

I'm not sure if this will work using ADO I've only used DAO..

x = rows y = columns

(total for each row)

for x = 1 to 20

for y = 1 to 5

var1 = msgTextmatrix(x, y)

var2 = var1 + var2

next y

msgTextMatrix(x, y+1) = var2

next x

(total for each column)

for y = 1 to 5

for x = 1 to 20

var1 = msgTextMatrix(x, y)

var2 = var1 + var2

next x

msgTextMatrix(x+1, y) = var2

next y

There's probably an easier way that I don't know about but this way should

work

"Victor" <victoryan88@yahoo.com> wrote:

>

>Dear VB Pros and Friends:

>

>Questions about MSHFlexGrid with VB6.

>

>adoRSAnalysis as ADODB.Recordset and has 5 fields, each is assigned to mshflexgrid

>from column 1 to 5.

>

>Column 1 is the ItemName, Columns 2 to 5 are the numbers, and Column 6 is

>the total for columns 2 to 5.

>

>Question 1: How to get the row total and show it on column 6?

>

>Question 2: how to get the column total for columns 2 to 5 on the last row

>(let¡¯s say, there are 20 records).

>

>They should look like this:

>

>ItemName Column1 ... ... Column5 Total

>Row1

>Row2

>...

>...

>Row20

>Total

>

>Column 6 and the last row with ¡°Total¡± are the run-time results.

>

>

>Thanks

>