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

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 2:29 am.