home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus039.dsk / SURVEY.MPR / SCRIPT / A007ApprGlobObj897.s (.txt) < prev   
Null Bytes Alternating  |  1995-11-06  |  2KB  |  47 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2. Option Public
  3.  
  4. '++LotusScript Development Environment:2:5:(Forward):0:1
  5. Declare Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8. Dim QuestionName As String
  9. Dim QesRespName As String
  10.  
  11. '++LotusScript Development Environment:2:1:MainTableOfRepPanel:1:8
  12. Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer
  13.     FNAME = ""
  14.     Dim N As Integer
  15.     N = -1
  16.     Dim FILENAME As String
  17.     Dim D As DOCUMENT
  18.     Set D = CURRENTDOCUMENT
  19.     Dim BC As BASECOLLECTION
  20.     Set BC = D.TABLES
  21.     FNAME = RP.MAINTABLE
  22.     N = Instr(FNAME,":")
  23.     If Not N = 0 Then FNAME = Left$(FNAME,N-1)
  24.     
  25.     Forall T In BC
  26.         Set TBL = T
  27.         FILENAME = TBL.FILENAME
  28.         N = Instr(FILENAME,".")
  29.         If Not N = 0 Then FILENAME = Left$(FILENAME,N-1)
  30.         N = Strcompare(FNAME,FILENAME)
  31.         
  32.         If N = 0 Then 
  33.             FNAME = TBL.FULLNAME
  34.             Goto OUT
  35.         End If
  36.         
  37.         
  38.     End Forall
  39.     
  40.     
  41. OUT:
  42.     If N = 0 Then 
  43.         MainTableOfRepPanel = True
  44.     Else 
  45.         MainTableOfRepPanel = False
  46.     End If
  47. End Function