how to create header using MSHFlexgrid and add data from textboxes to MSHFlexgrid

Question

0.00/5 (No votes)

See more:

VB6

Posted 11-Feb-12 5:10am

Bhags1992

Add a Solution

Comments

Sergey Alexandrovich Kryukov 11-Feb-12 16:10pm

Wow! Does anybody develop in VB6 and why? :-)
--SA

4 solutions

Solution 1

I would suggest you to go through it

http://visualbasic.ittoolbox.com/groups/technical-functional/visualbasic-l/code-of-vb-mshflexgrid-712059[^]

accept n vote if helps otherwise report your queries
--
rahul d.

Posted 11-Feb-12 11:36am

RDBurmon

Solution 2

To Assign Column Headers For msFlexGrid

VB

MSFlexGrid.Clear
MSFlexGrid.Rows = 2
MSFlexGrid.TextMatrix(0, 1) = "Header1"
MSFlexGrid.TextMatrix(0, 2) = "Header2"
MSFlexGrid.TextMatrix(0, 3) = "Header3"
MSFlexGrid.TextMatrix(0, 4) = "Header4"
MSFlexGrid.TextMatrix(0, 5) = "Header5"
MSFlexGrid.TextMatrix(0, 6) = "Header6"
MSFlexGrid.TextMatrix(0, 7) = "Header7"

After assigning headers to the msFlexGrid Add the data from the textbox as shown below

VB

MSFlexGrid.TextMatrix(0, 1) = Trim(txtText1.Text)
MSFlexGrid.TextMatrix(0, 2) = Trim(txtText2.Text)
MSFlexGrid.TextMatrix(0, 3) = Trim(txtText3.Text)
MSFlexGrid.TextMatrix(0, 4) = Trim(txtText4.Text)
MSFlexGrid.TextMatrix(0, 5) = Trim(txtText5.Text)
MSFlexGrid.TextMatrix(0, 6) = Trim(txtText6.Text)
MSFlexGrid.TextMatrix(0, 7) = Trim(txtText7.Text)

Hope It Will Help You.
Feel Free To Ask If Any Further Queries

Posted 11-Feb-12 18:07pm

Aniket Yadav

Comments

Bhags1992 12-Feb-12 3:22am

MSHFlexGrid1.Clear
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.TextMatrix(0, 1) = "Acc_id "
MSHFlexGrid1.TextMatrix(0, 2) = "Acc_name"
MSHFlexGrid1.TextMatrix(0, 3) = "Cost(perunit)"

MSHFlexGrid1.TextMatrix(0, 1) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(0, 2) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(0, 3) = Trim(txtCost.Text)

im using this code but it gives subscript out of range error

Aniket Yadav 12-Feb-12 4:11am

MSHFlexGrid1.Clear
MSHFlexGrid1.Rows = 1 ''Add Just 1 New Row And Try
MSHFlexGrid1.TextMatrix(0, 1) = "Acc_id "
MSHFlexGrid1.TextMatrix(0, 2) = "Acc_name"
MSHFlexGrid1.TextMatrix(0, 3) = "Cost(perunit)"

MSHFlexGrid1.TextMatrix(0, 1) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(0, 2) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(0, 3) = Trim(txtCost.Text)

Solution 4

When you add new record, you must increment the row counter also.

Now for eg.
if I have a counter named count then, my code would be,

VB

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
count = MSHFlexGrid1.Rows
MSHFlexGrid1.TextMatrix(count, 1) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(count, 2) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(count, 3) = Trim(txtCost.Text)

This Will Definitely Help You. Please Check

Posted 12-Feb-12 0:20am

Aniket Yadav

Comments

Bhags1992 12-Feb-12 6:44am

it giving subscript out of range error

Aniket Yadav 12-Feb-12 6:46am

Does your column starts from 0? If yes then
MSHFlexGrid1.TextMatrix(count, 0) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(count, 1) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(count, 2) = Trim(txtCost.Text)

Bhags1992 12-Feb-12 6:51am

still it giving same error

Aniket Yadav 12-Feb-12 6:58am

will you post the whole routine so that i can check it? Bcoz i have checked the same thing on my side and its working fine. After checking that only i have posted the code on your side.

Bhags1992 12-Feb-12 7:02am

Private Sub cmdCal_Click()

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
c = MSHFlexGrid1.Rows

MSHFlexGrid1.TextMatrix(c, 0) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(c, 1) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(c, 2) = Trim(txtCost.Text)
End Sub

Aniket Yadav 12-Feb-12 7:10am

Okay It was my typing mistake while using the counter. please refer the following code

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
c = MSHFlexGrid1.Rows - 1 ''This will give you the last row which is blank and add data to it

MSHFlexGrid1.TextMatrix(c, 0) = Trim(cboAccId.Text)
MSHFlexGrid1.TextMatrix(c, 1) = Trim(cboAccName.Text)
MSHFlexGrid1.TextMatrix(c, 2) = Trim(txtCost.Text)

Bhags1992 12-Feb-12 7:15am

hey thanks it working

Aniket Yadav 12-Feb-12 7:17am

:-) It's my pleasure that i was helpful to you

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)

Aniket Yadav · Accepted Answer · 2012-02-11T22:19:00

You have to write separate routine To Assign Column Headers For msFlexGrid. Do not insert the textbox data in this routine. if you do so then this will definitely give an error to you

VB

MSFlexGrid.Clear
MSFlexGrid.Rows = 1
MSFlexGrid.TextMatrix(0, 1) = "Header1"
MSFlexGrid.TextMatrix(0, 2) = "Header2"
MSFlexGrid.TextMatrix(0, 3) = "Header3"
MSFlexGrid.TextMatrix(0, 4) = "Header4"
MSFlexGrid.TextMatrix(0, 5) = "Header5"
MSFlexGrid.TextMatrix(0, 6) = "Header6"
MSFlexGrid.TextMatrix(0, 7) = "Header7"

And Then do the following in another routine/function

VB

MSFlexGrid.TextMatrix(0, 1) = Trim(txtText1.Text)
MSFlexGrid.TextMatrix(0, 2) = Trim(txtText2.Text)
MSFlexGrid.TextMatrix(0, 3) = Trim(txtText3.Text)
MSFlexGrid.TextMatrix(0, 4) = Trim(txtText4.Text)
MSFlexGrid.TextMatrix(0, 5) = Trim(txtText5.Text)
MSFlexGrid.TextMatrix(0, 6) = Trim(txtText6.Text)
MSFlexGrid.TextMatrix(0, 7) = Trim(txtText7.Text)

how to create header using MSHFlexgrid and add data from textboxes to MSHFlexgrid

4 solutions

Solution 3

Solution 1

Solution 2

Solution 4

Add your solution here

Preview 0

Existing Members

...or Join us