Dataset1.tabla.Columns.Add("Total")
Dim indice As Integer = 0
Do While indice < Dataset1.tabla.Count
Dataset1.tabla(indice).Total = Dataset1.tabla(indice).Campo1 + Dataset1.tabla(indice).Campo2 + Dataset1.tabla(indice).Campo3
indice = indice + 1
Loop