DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Substraction code in MSFlex Grid

Thread Solved

•

Join Date: Aug 2008

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

#11

Jan 14th, 2009

Thanx to all of you, teachers... I'm sorry for being so dumb before this.. Hehe.. It was alreasdy solved.. But, the 8th column need to be changed ti 7th column.. K, thanx lot..

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