DaniWeb IT Discussion Community - View Single Post - Substraction code in MSFlex Grid

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

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

Attached Files

sample.zip (14.1 KB, 13 views)