こんにちは。 標記の件ですが、こちらの過去ログを検索して方法を 入手することができたのですが、もう一息のところで うまくいきません。 何度もこの話題については、あったと思いますが 検索できなかったので、よろしくお願いします。 ＜したい事＞（住所録があります。担当者ごとに作成しています。） リストボックスＡ，Ｂがあります。 ListAは、プロパティで、@DbColumnを使って、住所一覧ビューより 会社名を表示しています。 ListBは、ListAより会社名を選択されると、会社名で検索して 担当者一覧を作成して、表示させます。（させたいです） 担当者を入れる配列は、K_nm としています。 これには、ちゃんと検索した結果がはいっていました。 これで、ListBへ値をセット Call cdoc.ReplaceItemValue("ListB ",k_nm) したのですが、表示されません。 過去ログでも、表示されません。とありました。 どなたか分かる方教えてください。 よろしくお願いします。 '---------------------------------------------------- 'こちらが作ったロータススクリプトです。こちらの過去ログより '---------------------------------------------------- '-- 現在の文書 定義 Dim cdoc As NotesDocument Set uidoc = ws.CurrentDocument Set cdoc = uidoc.Document '-- カレント Dim Dat1 As String '-- Set db = s.CurrentDatabase '-- 住所一覧を表示するビュー Set V_VINFO = db.GetView("V_VisitorINFO") ' '-- Dim varField As Variant Dim vF_C As Long varField = cdoc.GetItemValue("ListA") '-- 会社名を選択 vf_c = Ubound(varField) '-- 配列のデータ件数 '-- Search 配列を作成するために 件数を割り出す Dim S_Cnt As Long '-- Search 結果 Dim S_CntT As Long '-- Search 結果Total s_cnt=0 s_cntt=0 For i = 0 To vf_c dat1 = varField(i) '-- ListAから選択した会社名 s_cnt = V_VINFO.FTSearch(dat1,0) '-- 検索する s_cntt = s_cntt + s_cnt Next i '-- 配列の件数がセットできる。 Redim K_nm(0 To s_cntt) '-- 選択した会社名の担当者名 ccc=0 '------------------------ For i = 0 To vf_c dat1 = varField(i) s_cnt = V_VINFO.FTSearch(dat1,0) Set doc=V_VINFO.GetFirstDocument Do Until(doc Is Nothing) a$ =doc.ColumnValues( 2 ) k_nm(ccc)=a$ ccc=ccc+1 Set doc = V_VINFO.GetNextDocument(doc) Loop Next i '-- ListB へ担当者名をセットする。 Call cdoc.ReplaceItemValue("ListB ",k_nm) '-- TextにもTestでセットする。 cdoc.test1=k_nm '---------------------------------------------------