Flex Grid, 1

[MrMoocow]

Hello,
I am amking a program where you can select a product and a quantity, then it gets added to a flex grid. But I can't get it to add the Product to the first column then the quantity in the second column.
HOW DO I DO THIS!
I tried setting flexgrid.col = 2

Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[JohnYingling]

Are .Rows and .cols set properly.
if .Rows = 1 the last .row is 0 i.e. .row and .col are relative to 0.
What you refer to as Column 1 is .col = 0, and column 2 is .col = 1.

http://www.VBCompare.com

http://www.VBSortGen.com

 

[MrMoocow]

I'm now aware of this but it still sin't working.

MSFlexGrid1.Col = 0
MSFlexGrid1.AddItem cmbwinlist
MSFlexGrid1.Row = 1
MSFlexGrid1.AddItem txtquantity

Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[JohnYingling]

did you mean?
MSFlexGrid1.Col = 0
MSFlexGrid1.AddItem cmbwinlist.text
MSFlexGrid1.COL = 1 ' changed Row to Col
MSFlexGrid1.AddItem txtquantity.text

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JohnYingling]

It would also help if you would include the error text, whether it is a syntax or run-time error, and indicate on which line the error occurred.

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JohnYingling]

Save som code by using .TextMatrix
e.g.

With grd
For I = .FixedRows to .Rows
    .TextMatrix(lnbgRow, 0) = 'col 1 data 
    .TextMatrix(lnbgRow, 1) = 'col 2 data 
    ' etc 
Next
End With

http://www.VBCompare.com

http://www.VBSortGen.com

 

[MrMoocow]

Still doesn't work, IJ use JohnYingling code and it still places the text on on top of the other.

I need it to look like so

|Item||Amount||Price|
|Item||Amount||Price|
|Item||Amount||Price|

Here is what I am getting

|Item|
|Amount|

Sorry if I donn't quite "grasp" this but I'm a utility/game designer not financial. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[JohnYingling]

It is like a two dimensional array.

With grd
For I = .FixedRows to .Rows ' for each non-header row
    '         row dimension, col dimension
    .TextMatrix(I, 0) = 'col 1 data - item 
    .TextMatrix(I, 1) = 'col 2 data - amount
    .TextMatrix(I, 2) = 'col 3 data - price
    ' etc 
Next
End With

http://www.VBCompare.com

http://www.VBSortGen.com

 

[MrMoocow]

I'm sorry John I just can't get it to work, But I thank you for your effort (and thats why i gave u a star thing).

Thanks anyway. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[woyler]

same as johns, but here we increment rows and pretty up the grid;
dim lRow as long
With FlexGrid
.Redraw = False
.Clear

.ColWidth(0) = .Width * 0.32
.ColWidth(1) = .Width * 0.33
.ColWidth(2) = .Width * 0.33

.FixedAlignment(0) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
.FixedAlignment(2) = flexAlignCenterCenter

.ColAlignment(0) = flexAlignCenterCenter
.ColAlignment(1) = flexAlignCenterCenter
.ColAlignment(2) = flexAlignCenterCenter

.TextMatrix(0, 0) = "ITEM"
.TextMatrix(0, 1) = "AMOUNT"
.TextMatrix(0, 2) = "PRICE"

End With

lRow = 0
lRow = lRow + 1

FlexGrid.Rows = lRow + 1
flexGrid.TextMatrix(lRow, 0) = 'ItemData
flexGrid.TextMatrix(lRow, 1) = 'AmountData
FlexGrid.TextMatrix(lRow, 2) = 'PriceData

flxDisplay.Redraw = True

 

[MikeCox]

This option is also available to u MrMoo:

Dim TxtLine as String

TxtLine = txtItem.Text & vbTab & txtAmount.Text & vbTab & txtPrice.Text

grdMyFlexGrid.AddItem TxtLine

-Mike
Difference between a madman and a genius:
A madman uses his genius destructively,
A genius uses his madness constructively.

 

[MrMoocow]

Thank you everyone,
I will try all these when I can. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.