Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5066
Line 228... Line 228...
228 
      InxRefColumnVal   = 1
 228 
      InxRefColumnVal   = 1
229 
      InxPermissionType = 2
 229 
      InxPermissionType = 2
230 
      InxPermission     = 3
 230 
      InxPermission     = 3
231 
      InxControl        = 4
 231 
      InxControl        = 4
232 
 
 232 
 
- 
 
 233 
      ' Nothing to do ifthere is no data
- 
 
 234 
      If IsNull(aRows) OR IsEmpty(aRows) Then
- 
 
 235 
          Exit Sub
- 
 
 236 
      End If
- 
 
 237 
 
233 
      numOfRows = UBound( aRows, 2 )
 238 
      numOfRows = UBound( aRows, 2 )
234 
 
 239 
 
235 
      For rowNum = 0 To numOfRows
 240 
      For rowNum = 0 To numOfRows
236 
 
 241 
 
237 
          TableName         =  aRows( InxTableName, rowNum )
 242 
          TableName         =  aRows( InxTableName, rowNum )