4 回覆 最後回覆日期:May 18, 2016 7:14 PM,建立者:clomama :D

    隨機列表

    clomama :D

      Hi,

       

      我其中一項工作是需要同一時間列印多份問卷,問卷題目已輸入以下TableR。

       

      Question_ID

      Question_Code

      Question

      Question_Used

      Random

       

      當題目已用時,會在Question_Used內填上"Y"。每份問卷內的題目都不可以重複。我想每份問卷的題目都可隨機選擇。我現在寫了以下script:

       

      Go to Layout ["TableR" (TableR)]

      Show All Records

      Replace Field Contents [No dialog; TableR:Random; Random]

      Sort Records by Field [Ascending; TableR::Random]

      Go to Record/Request/Page [First]

      Omit Multiple Records [No dialog; 10]

      Show Omitted Only

       

      這script可用的。但問題是它會將已用的題目都會列出來。請問怎樣解決?

       

      謝謝!

        • 1. Re: 隨機列表
          Wing Fat Leung

          可以試試這樣

           

          Go to Layout [ “TableR” ]

          Show All Records

           

          Enter Find Mode [ ]


          Set Field [ TableR::Question_Used; "=" ]

          Set Error Capture [ On ]


          Perform Find [ ]


          If [ Get ( FoundCount ) < 11 ]

             Exit Script [ ]

          End If

           

          Replace Field Contents [ No dialog ; TableR::Random; Random ]

          Sort Records by Field [ Ascending; TableR::Random ]

          Go to Record/Request/Page [ No dialog ; 11 ]

          Omit Multiple Records [ No dialog ; Get ( FoundCount ) - 10 ]

          1 (共 1 人 ) 人發現這個非常有用
          • 2. Re: 隨機列表
            clomama :D

            再次謝謝你Fat Leung

             

            我想做多少少。如果我想將題目先分類後隨機選擇題目的話,我會加一項Question_Type,但你改良了的script便用不著。請問如何是好?

             

            謝謝!

            • 3. Re: 隨機列表
              Wing Fat Leung

              Enter Find Mode [ ]


              Set Field [ TableR::Question_Used; "=" ]

              Set Error Capture [ On ]


              Perform Find [ ]


               

              這段目的是找出還可使用的題目,只要在這裏加上不同的條件就可以了

              1 (共 1 人 ) 人發現這個非常有用
              • 4. Re: 隨機列表
                clomama :D

                謝謝你的提示Fat 原來就是這麼簡單便可做到我一直以為一直做不到的難題 現在這項工作順利及快捷多了。非常感謝