Subversion Repositories DevTools

Rev

Rev 1282 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1282 Rev 3927
Line 572... Line 572...
572 
         If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 572 
         If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
573 
            Call LoadButtons ( rsQry.GetRows() )
 573 
            Call LoadButtons ( rsQry.GetRows() )
574 
         End If
 574 
         End If
575 
      End If
 575 
      End If
576 
 
 576 
 
- 
 
 577 
 
577 
		rsQry.Close
 578 
		rsQry.Close
578 
		Set rsQry = Nothing
 579 
		Set rsQry = Nothing
579 
	End Sub
 580 
	End Sub
580 
	'-----------------------------------------------------------------------------------------------------------------
 581 
	'-----------------------------------------------------------------------------------------------------------------
581 
	Public Sub LoadButtons ( aRows )
 582 
	Public Sub LoadButtons ( aRows )