Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 1703

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Jan 7th, 2009

Substraction code in MSFlex Grid

Expand Post »

Hello there,
I am doing my 'budget control system', and I want to make substraction from the value i entered in a textbox (budget for the year), with the sum of all the value in the 8th column of the MS Flex Grid data (which is the money used).

Can anybody plz guide me how to make it?

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Jan 7th, 2009

Re: Substraction code in MSFlex Grid

Hi,

Use MSFlexGrid.TextMatrix ( row, column ) to get/set then value rom/to the grid.

selvaganapathy

Reputation Points: 44

Solved Threads: 101

Posting Pro

Offline

547 posts
since Feb 2008

Permalink

Jan 7th, 2009

Re: Substraction code in MSFlex Grid

Hi,

Try This :

vb Syntax (Toggle Plain Text)
Dim i As Integer
Dim TAmt As Currency
TAmt = 0 
For i = 1 To Grd.Rows-1
  TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
Next
TAmt = TAmt +Val(txtBudget.Text)
MsgBox  "Total Amount Is : " & Format(TAmt, "0.00")
Dim i As Integer
Dim TAmt As Currency
TAmt = 0 
For i = 1 To Grd.Rows-1
  TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
Next
TAmt = TAmt +Val(txtBudget.Text)
MsgBox  "Total Amount Is : " & Format(TAmt, "0.00")

Change names of your controls, and Column accordingly..

REgards
Veena

Last edited by QVeen72; Jan 7th, 2009 at 11:39 pm.

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

Permalink

Jan 8th, 2009

Re: Substraction code in MSFlex Grid

Actually, I'm using FlexGrid to display the budget database records. I've tried the codes given by Veena, but it displays the 424 error, and debug at the line below..

For i = 1 To Grd.Rows-1

Could both of you plz explain me, with more details? Or by giving me codes to be applied.. Plz..

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Jan 8th, 2009

Re: Substraction code in MSFlex Grid

How about you rename your FlexGrid control to Grd..... (or is it already Grd)?

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 9th, 2009

Re: Substraction code in MSFlex Grid

Thank you Comatose,
After i rename it to Grd, the error disappear..
But still, i can't figure out how can it works..
What if my plan being like this..
I have to put first, the value of budget in the txtBudget..
Then, the value in the txtBudget will be reduced by every value in the Grd 8th column..
Then, the balance will be appear in the txtBalance..
Could anybody from 3 of you, tell me the codes to make it work? Sorry if i'm like asking, but i am a beginner VB user..

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Jan 9th, 2009

Re: Substraction code in MSFlex Grid

Hi,

Yes, Little bit tweaking of my code, will do the job:

vb Syntax (Toggle Plain Text)
      Dim i As Integer
      Dim TAmt As Currency
      TAmt = 0
      For i = 1 To Grd.Rows-1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
      Next
      TAmt = Val(txtBudget.Text) - TAmt
      txtBalance.Text = Format(Tamt,"0.00")
      Dim i As Integer
      Dim TAmt As Currency
      TAmt = 0
      For i = 1 To Grd.Rows-1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
      Next
      TAmt = Val(txtBudget.Text) - TAmt
      txtBalance.Text = Format(Tamt,"0.00")

You can Call this In LostFocus Of txtBudget..

Regards
Veena

Last edited by QVeen72; Jan 9th, 2009 at 2:29 am.

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

Permalink

Jan 9th, 2009

Re: Substraction code in MSFlex Grid

Sorry... But, it didn't work.. Maybe, because i don't know how and where to use it.. I copied and pasted the latest codes by Venna in the private Sub Grd_Click like below..

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Grd_Click()
Dim i As Integer
      Dim TAmt As Currency
      TAmt = 0
      For i = 1 To Grd.Rows - 1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
      Next
      TAmt = Val(txtBudget.Text) - TAmt
      txtBalance.Text = Format(TAmt, "0.00")
End Sub
Private Sub Grd_Click()
Dim i As Integer
      Dim TAmt As Currency
      TAmt = 0
      For i = 1 To Grd.Rows - 1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 8))
      Next
      TAmt = Val(txtBudget.Text) - TAmt
      txtBalance.Text = Format(TAmt, "0.00")
End Sub

Did i use it incorrectly? Here i enclosed a small-sized of the related form, to show u what i'm doing..

P/S: Do i need to put codes also in the txtBudget and txtBalance? Sorry for the dumb question...

Attached Files

sample.zip (14.1 KB, 49 views)

Last edited by Narue; Jan 10th, 2009 at 9:33 pm. Reason: added code tags

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Jan 11th, 2009

Re: Substraction code in MSFlex Grid

Plz sumbody.... Plz tell me, how to use the codes Venna gave me.. I really don't have the idea where to put the codes.. FlexGrid is a new thing for me.. It looks come to the solved, but i can't make it.. Plz... I need to pass this project, in order to get my diploma...

I'm not an IT student, but doing the IT project..

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Jan 11th, 2009

Re: Substraction code in MSFlex Grid

What if like this... I have to put the budget value first in the txtBudget, then I need to click the cmdCalculate to have the balance calculated being in the txtBalance.... I really need a detail explaination, which codes to put in the FlexGrid, which in the txt and cmd... Plz... I need your kind help... I'm not an IT student, and don't have a good teacher about it.. Only God who knows how to repay your help.. Plz..

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Page 1
2
Next

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Page setup + Print titles

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Any One Help me about UPDATING file in the Text .

DaniWeb Message

Cancel Changes

User Name
Password