home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMASTERS / APPROACH / SURVEY.MPR / SCRIPT / A007ApprGlobObj897.s (.txt) < prev   
Encoding:
Null Bytes Alternating  |  1996-12-18  |  4.7 KB  |  99 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:74
  2. Option Public
  3.  
  4.  
  5.  
  6. '++LotusScript Development Environment:2:5:(Forward):0:1
  7. Declare Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer
  8. Declare Sub DupChoices
  9.  
  10. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11. Dim QuestionName As String
  12. Dim QesRespName As String
  13.  
  14. '++LotusScript Development Environment:2:1:MainTableOfRepPanel:1:8
  15. Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer
  16.     FNAME = ""
  17.     Dim N As Integer
  18.     N = -1
  19.     Dim FILENAME As String
  20.     Dim D As DOCUMENT
  21.     Set D = CURRENTDOCUMENT
  22.     Dim BC As BASECOLLECTION
  23.     Set BC = D.TABLES
  24.     FNAME = RP.MAINTABLE
  25.     N = Instr(FNAME,":")
  26.     If Not N = 0 Then FNAME = Left$(FNAME,N-1)
  27.     
  28.     Forall T In BC
  29.         Set TBL = T
  30.         FILENAME = TBL.FILENAME
  31.         N = Instr(FILENAME,".")
  32.         If Not N = 0 Then FILENAME = Left$(FILENAME,N-1)
  33.         N = Strcompare(FNAME,FILENAME)
  34.         
  35.         If N = 0 Then 
  36.             FNAME = TBL.FULLNAME
  37.             Goto OUT
  38.         End If
  39.         
  40.         
  41.     End Forall
  42.     
  43.     
  44. OUT:
  45.     If N = 0 Then 
  46.         MainTableOfRepPanel = True
  47.     Else 
  48.         MainTableOfRepPanel = False
  49.     End If
  50. End Function
  51. '++LotusScript Development Environment:2:2:DupChoices:1:8
  52. Sub DupChoices
  53.     Dim RS As New ResultSet
  54.     Dim aryTemp() As String
  55.     Dim intTotDups%, c%, j As Integer
  56.     Dim CurPanel As Panel
  57.     Dim strQuestNum As String
  58.     Dim tblChoices As table
  59.     
  60.     'Run this subroutine only in this particular view:
  61.     If CurrentView.Name = "Create Questions" Then
  62.         
  63.         CurrentWindow.Refresh
  64.     'Get the current question number:
  65.         Set CurPanel = CurrentView.body
  66.         strQuestNum = CurPanel.Question~ Number.Text
  67.         Set tblChoices = CurrentDocument.Gettablebyname("Choices:1")
  68.         Set RS = tblChoices.CreateResultset
  69.         
  70.     'Get the values to be duplicated first:
  71.         Redim aryTemp (1 To RS.NumRows, 1 To 2)
  72.         j = 1
  73.         For c = 1 To RS.NumRows
  74.             If RS.GetValue(1) = strQuestNum Then
  75.             'Put it into the temp array
  76.                 aryTemp(j,1) = RS.GetValue(2)
  77.                 aryTemp(j, 2) = RS.GetValue(3)
  78.                 j= j + 1
  79.             End If
  80.             RS.NextRow
  81.         Next
  82.         'Close the resultset when finished
  83.         RS.Close
  84.         
  85.         intTotDups = j
  86.         
  87.     'Now new record:
  88.         CurrentWindow.NewRecord
  89.     'Set focus to the repeating panel:
  90.         currentwindow.tabto(3)    
  91.         For c = 1 To intTotDups
  92.             currentwindow.newrecord
  93.             CurrentView.RepeatingPanel.Choice.text =aryTemp(c,1)
  94.             CurrentView.RepeatingPanel.Choice~ Description.text =aryTemp(c,2)
  95.         Next
  96.         Sendkeys "~", 0        
  97.     End If
  98.     
  99. End Sub