0

クリックするとスタッフのキーワード リストが表示され、選択して上司 1 フィールドに配置する、ボタン クリック イベント用の適切なロータス スクリプトが必要です...指定するパラメーターがわかりません...助けてください.. .私は以下のスクリプトに従いましたが、うまくいきませんでした...それは空のダイアログリストに表示されています...:(...または、これを解決するための代替式またはsumthinを提供してください... thxたくさん...

Sub Click(Source As Button)
    Dim session As New notessession
    Dim view,view1 As NotesView 
    Dim doc,doc1 As notesdocument
    Dim db As Notesdatabase
    Set db=session.CurrentDatabase 

    Dim Overdb As notesdatabase

    Set Overdb=session.GetDatabase(db.server, "Master\\ASEAN_Staff.nsf")

    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim picklist As Variant
    Set uidoc = workspace.CurrentDocument

    If Superior1= "" Then

        Sup1$ = uidoc.FieldGetText("Superior1")

        picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
        False,_
        db.server,_
        "Master\\ASEAN_Staff.nsf",_
        "x_asean_search",_
        "Select Name",_
        4,_
        Sup1$ ) 


    End If

End Sub

Thx a lot Hristo & mbonaci... :) pickliststrings を使いこなしました。つまり、グループ列ごとに分類された Superior1 キーワードのリストを表示したいと思っていました。使用したスクリプトは次のとおりです。 ..

Sub Click(Source As Button)
Dim session As New notessession
Dim view As NotesView 
Dim view1  As notesview
Dim doc,doc1 As notesdocument
Dim db As Notesdatabase
Set db=session.CurrentDatabase 

Dim Overdb As notesdatabase

Set Overdb=session.GetDatabase(gsserver, gspath + "Master\\ASEAN_Staff.nsf")

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim picklist As Variant
Set uidoc = workspace.CurrentDocument

If Superior1= "" Then

    'Sup1 = uidoc.FieldGetText("Superior1")

    'Ofc = uidoc.FieldGetText("Office")
    Gp = uidoc.FieldGetText("Group")
    'og = doc.Office + doc.Group


    picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
    False,_
    gsserver,_
    "Master\\ASEAN_Staff.nsf",_
    "x_asean_search",_
    "Select Name",_
    "Choose",_
    1,_
    Gp ) 



End If

End Sub

さて、リストから任意のキーワードを選択すると...たとえば、「エグゼクティブ」は現在のドキュメント/フォームのフィールド「Superior1」に配置されます...これのスクリプトを見てください...助けてください...

4

2 に答える 2

1

書かれているように、7番目の位置に引数がないため（PickListStringsのヘルプ）、Notesは引数として数値（この場合は4） を予期しないPickListStringsため、エラーが発生するはずです。prompt$

それ以外：

  • ターゲットビュー（「Master \ ASEAN_Staff.nsf」の「x_asean_search」）を開き、フィールドの文字列Superior1（テストする値）を入力して、そのようなカテゴリがあることを確認してみましたか？ビューに存在する場合、フォーカスはそのカテゴリに移動する必要があります。
  • ステータスバーにを印刷しSup1$て、期待値が含まれていることを確認してください。
  • ビューの4番目の列は、どの値を返したいですか？

問題は発生しませんが、次の点に注意してください。

  • Dim view,view1 As NotesViewviewタイプVariantおよびview1タイプの変数を宣言しますNotesView。予期しない動作の可能性を回避するために、それらを別々の行に配置してください。たとえば、ここでステートメントIf (view is Nothing) Thenを実行すると、「タイプの不一致」エラーが発生します。
  • Superior1fromの変数はIf Superior1= "" Then、値がEMPTYのバリアントのようであるため、条件は常にtrueです。使用Option Declareすることは、これがコンパイルされないようにするための良い習慣です。
于 2011-03-02T04:28:46.223 に答える
0

@DbColumn 式を含むダイアログ リスト フィールドを選択肢 (フィールド プロパティの 2 番目のタブ) として単純に使用しないのはなぜですか。

@DbColumn( class : cache ; server : database ; view ; columnNumber )

例：

@DbColumn( "ReCache"; ""; "x_asean_search"; 4 )

現在のデータベースの "x_asean_search" ビューの 4 番目の列からすべての値を返します。

詳細はこちら: http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/topic/com.ibm.designer.domino.main.doc/H_DBCOLUMN_NOTES_DATABASES.html

于 2011-03-02T12:35:10.300 に答える