Display a control dynamic depending on 2 details sections

Function Fetch( ) As AcDataRow
   Dim aRow as drowFailByinbox

  'set fetch = Super::Fetch( )

     Do While True
    Set fetch = Super::Fetch( )
 
 

   If fetch is Nothing Then
   lastrecordcheck = True
   Exit Function 
   End IF

   If trim(str$(fetch.getvalue("sw_case_swcaseid"))) = "" Then
   Exit Function
   End IF

   if isnull(fetch.getvalue("sw_case_swcaseid"))and

  isnull(fetch.getvalue("sw_resolution_swresolutionid"))then
  lastrecordcheck = True

                         End IF

  If fetch.getvalue("sw_defect_swdefectid") <> ppDefectId 
 then
                       Exit Function
                                                     End If 

   Loop
             ' Insert your code here
  End Function

' This code is used in the control which is needed for hiding the control from the view.   DayDisplayFlag determines whether the control to be Hidden or not.

 If DayDisplayFlag then
   me.text = "Days Old"
   DayDisplayFlag = False
 End IF

         ' Insert your code here
 End Sub

  Sub OnRow( row As AcDataRow )
  Super::OnRow( row )

  If DayDataDisplayFlag then
    DataValue = DaysOldValue
    DayDataDisplayFlag = False
    DayframeHide = True
   ' lastrecordcheck = True
  End IF
  

         ' Insert your code here
   End Sub