Format cell in MSHFlexGrid?? 2

[rtshort]

I have tried to format my MSHFlexGrid(flexDA)columns with the following code and it will not work. Does anyone know the proper way or tell me what I'm doing wrong??

Private Sub Form_Load()
With flexDA
.TextMatrix(0, 0) = "Part Number"
.TextMatrix(0, 1) = "Part Name"
.TextMatrix(0, 2) = "Hours"
.TextMatrix(0, 3) = "Part Price"
.TextMatrix(0, 4) = "Total"
.ColWidth(0) = 1200
.ColWidth(1) = 2500
.ColWidth(2) = 750
.ColWidth(3) = 1000
.ColWidth(4) = 1000
For i = 0 to .Rows - 1
.Col = 2
.Text = Format(.Text, "#,###.0&quot
.Col = 3
.Text = Format(.Text, "##,###,###.00&quot
Next i
End With Every day above ground is a GOOD DAY!!!

 

[HermanvLimbeek]

When your doing the for - next loop, you're setting the col but not the row.

For i = 0 to .Rows - 1
.Col = 2
.row = i
.Text = Format(.Text, "#,###.0&quot
.Col = 3
.row = i
.Text = Format(.Text, "##,###,###.00&quot
Next i

You can make it run faster like this:
for i = 0 to .rows -1
.textmatrix(i,2) = Format(.Textmatrix(i,2), "#,###.0&quot
.textmatrix(i,3) = Format(.Textmatrix(i,3), "##,###,###.00&quot
next i

Herman

 

[rtshort]

Tried it both ways and could not get it to work. I must be putting it on the wrong place. I have it in the form load event. Should it be somewhere else?
Thx. Every day above ground is a GOOD DAY!!!

 

[rtshort]

I formatted the columns in the .AddItem Statement (on another form) before I added it to the grid and it worked ok e.g.

.AddItem New

New = rs.Fields("Part#&quot.Value & vbTab & rs.Fields("PartName&quot.Value & vbTab & Format(rs.Fields("Labor&quot.Value, "#,###.0&quot & vbTab & Format(rs.Fields("PartPrice&quot.Value, "##,###,###.00&quot

The .AddItem Statement is on another form. Should I leave it like this or do I need to format it on the Grid itself?? Every day above ground is a GOOD DAY!!!

 

[MichaelRed]

As 'they' say, what ever floats your boat. - in other words, this is very much dependent on the overall app / process as to wheather it is the "Best" way to do it, but unless there are obvious problems then any way whic works is probably O.K.

If there are Problems with your choice, USERS will let you know - and probably very quickly.


MichaelRed
redmsp@erols.com

There is never time to do it right but there is always time to do it over

 

[rtshort]

Thanks Herman and Michael. I appreicate it. Every day above ground is a GOOD DAY!!!