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

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 11:39 pm.