Private Sub UltraGrid1_AfterRowActivate( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles UltraGrid1.AfterRowActivate
If Me.UltraGrid1.ActiveRow Is Nothing Then Return
Dim theEmployee As Employee = _
DirectCast(Me.UltraGrid1.ActiveRow.ListObject, Employee)
Me.UltraChildGrid.DataSource = Nothing
Me.UltraChildGrid.DataSource = _
DataManager.GetAccountsByEmployee(theEmployee)
End Sub