' Return a reference to a control by the use of its name

' expO1 Form

' expC1 Name of the control

Public Shared Function FindControlByFieldName(ByVal loForm As System.Windows.Forms.Form, ByVal tcProperty As String) As Object

Dim loFieldInfo As System.Reflection.FieldInfo = Nothing

Dim loObject As Object = Nothing

Dim loPropertyInfo As System.Reflection.PropertyInfo = Nothing

Dim loType As System.Type = Nothing



' Get the form type

loType = loForm.GetType()



' Get the property info

loPropertyInfo = loType.GetProperty(tcProperty, System.Reflection.BindingFlags.Public Or _

System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance Or _

System.Reflection.BindingFlags.DeclaredOnly)



' If the property info is known as an object

If Not loPropertyInfo Is Nothing Then

Return loPropertyInfo.GetValue(loForm, Nothing)

End If



' Get the field info

loFieldInfo = loType.GetField(tcProperty, System.Reflection.BindingFlags.Public Or _

System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance Or _

System.Reflection.BindingFlags.DeclaredOnly)



' If the field info is nothing

If loFieldInfo Is Nothing Then

Return Nothing

End If



' Get the field object

loObject = loFieldInfo.GetValue(loForm)



Return loObject

End Function

Dim childname As String = "_" & MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(bo.SpilloverGrid)



Dim childbo As BaseBO = CType(FindControlByFieldName(Me, childname), BaseBO)



dim records as Int32 = childbo.count