DaniWeb Home > Forums > Software Development > Visual Basic 4 / 5 / 6

RSS

Substraction code in MSFlex Grid

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Solved

Page 1 of 2

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Substraction code in MSFlex Grid

Jan 7th, 2009

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?

•

Posts: 505

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 87

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: Substraction code in MSFlex Grid

Jan 7th, 2009

Hi,

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

KSG

•

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 119

QVeen72

Offline

Practically a Posting Shark

Re: Substraction code in MSFlex Grid

Jan 7th, 2009

Hi,

Try This :

 Help with Code Tags 
 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 10:39 pm.

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Re: Substraction code in MSFlex Grid

Jan 8th, 2009

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..

•

Posts: 2,404

Reputation: Comatose is a jewel in the rough

Solved Threads: 209

Comatose

Offline

Taboo Programmer

Re: Substraction code in MSFlex Grid

Jan 8th, 2009

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

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Re: Substraction code in MSFlex Grid

Jan 9th, 2009

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..

•

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 119

QVeen72

Offline

Practically a Posting Shark

Re: Substraction code in MSFlex Grid

Jan 9th, 2009

Hi,

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

 Help with Code Tags 
 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 1:29 am.

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Re: Substraction code in MSFlex Grid

Jan 9th, 2009

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..

Help with Code Tags

(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

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...

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

Attached Files

sample.zip (14.1 KB, 8 views)

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Re: Substraction code in MSFlex Grid

Jan 11th, 2009

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..

•

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Re: Substraction code in MSFlex Grid

#10

Jan 11th, 2009

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..

Thread Tools Display Modes

Page 1 of 2

Quick Reply to Thread

•

Only community members can participate in forum threads. You must register or log in to contribute.

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: Page setup + Print titles
Next Thread: Any One Help me about UPDATING file in the Text .

•

Views: 963 | Replies: 10 | Currently Viewing: 1 (0 members and 1 guests)

•

Thread Tools	Display Modes
Show Printable Version Email this Page	Linear Mode Switch to Hybrid Mode Switch to Threaded Mode