short circuit a recursive function

  • Thread starter Thread starter Rick
  • Start date Start date
R

Rick

I have the recursive function below which I use to find a datagridview with
a certain bindingsource.

When the grid is parented by a control with only one child (the dgv) the
function works ok, but when there are multiple controls the function calls
itself and eventually returns "Nothing" if the dgv is not the last control.

How can I short circuit this function so that once it finds my target it
exits for good? Do I need some other kind of function and a recursive one?

Rick


Private Function FindDGV(ByVal parent As Control) As DataGridView
Dim dgv As DataGridView
FindDGV = dgv

Dim ctrl As Control

For Each ctrl In parent.Controls
If (ctrl.GetType Is GetType(DataGridView)) AndAlso _
DirectCast(ctrl,
DataGridView).DataSource.Equals(Nav.BindingSource) Then
Return DirectCast(ctrl, DataGridView)
Else
If ctrl.Controls.Count > 0 Then FindDGV(ctrl)
End If

End Function
 
Rick said:
How can I short circuit this function so that once it finds my target it
exits for good? Do I need some other kind of function and a recursive
one?
Click to expand...

This type of function is fine. The only problem I can see if the Else part
of the function is missing the return keyword on the call to FindDGV.
 
Michael,

I don't understand what you mean, can you change my code to show me?

What I think is happening is this: If I get to a splitter control with my
dgv in Panel1 I get a sucessful return from the function, but then it
continues to look in panel2 where it does not find anything and finally
returns nothing.

Rick
 
Rick said:
Michael,

I don't understand what you mean, can you change my code to show me?

What I think is happening is this: If I get to a splitter control with my
dgv in Panel1 I get a sucessful return from the function, but then it
continues to look in panel2 where it does not find anything and finally
returns nothing.
Click to expand...

It returns nothing because you're missing the return keyword:

If ctrl.Controls.Count > 0 Then return FindDGV(ctrl)

Michael
 
yes, that was it!
thanks very much Michael.

Michael C said:
It returns nothing because you're missing the return keyword:

If ctrl.Controls.Count > 0 Then return FindDGV(ctrl)

Michael
Click to expand...
 
Rick said:
yes, that was it!
thanks very much Michael.
Click to expand...

No worries. BTW, I think this

If (ctrl.GetType Is GetType(DataGridView))

can be just

If ctrl is DataGridView

and this line can be deleted altogether:
FindDGV = dgv

Michael
 
Michael C said:
No worries. BTW, I think this

If (ctrl.GetType Is GetType(DataGridView))

can be just

If ctrl is DataGridView
Click to expand...

seems not : VB.2005 compiler reports - 'DataGridView' is a type and cannot
be used as an expression
and this line can be deleted altogether:
FindDGV = dgv
Click to expand...

yes, agreed. I do this reflexively in functions even though in this case a
return value of nothing is ok.
 
Back
Top