Visual Basic

<br />
Dim rw as DataRow<br />
Dim Total as Decimal<br />
'First "save" any changes the user made before this bit of code is triggered<br />
Dataset.AcceptChanges()<br />
'Then loop through all rows in the dataset<br />
For Each rw In Dataset.tables("sourcetable").Rows<br />
'best to add some validation here:<br />
If IsError(Decimal.Parse(rw.Item("price"))) Then<br />
'someone wrote his name in the price field instead of a decimal<br />
'kick his ass<br />
Else<br />
'increase the value of variable Total<br />
Total += rw.Item("price")<br />
End If<br />
Next<br />
'and then for example:<br />
TxtTotal.Text = Total.ToString<br />

Public Class EmployeeCollection<br />
	Inherits System.Collections.CollectionBase<br />
	Public Default Property Item(ByVal index As Integer) As Employee<br />
		Get<br />
			Return DirectCast(List(index), Employee)<br />
		End Get<br />
		Set<br />
			List(index) = value<br />
		End Set<br />
	End Property<br />
End Class

Inherits System.Collections.CollectionBase<br />
<br />
    Public Property employee(ByVal index As Integer)<br />
        Get<br />
            Return MyBase.List(index)<br />
        End Get<br />
        Set(ByVal value)<br />
            MyBase.List(index) = value<br />
        End Set<br />
    End Property

Dim clipboardData as iDataObject = Clipboard.GetDataObject
if clipBoardData.GetDataPresent(DataFormats.Text) Then
  Return clipBoardData.GetData(DataFormats.Text)
else
  'The clipboard contains something other than text
end if