2

わかりました、これはおかしなようで、数時間調査してきましたが、うまくいくものは見つかりません。この投稿にはコードがほとんど含まれていませんが、私がやろうとしていることを非常に正確に説明します。

そのため、正常に入力されたリストボックスがあり、正常に機能します。ユーザーの指示に従って、ある時点で、ユーザーはリストボックスから行を選択し、それを RecordBox と呼び、いくつかの情報を確認し、場合によっては追加してから、[保存] コマンド ボタンをクリックします。この保存ボタンをクリックすると、選択した行を RecordBox から 2 番目のリストボックスにコピーしたいと思います。それを DetailsBox と呼んでください。

キャプション、コンボボックス エントリ、およびテキスト ボックス エントリの形式でフォームに表示されるデータを取得し、"DetailsBox" に行を追加して、その行の特定の列に情報をコピーする方法が必要です。選択した行を RecordBox から DetailsBox にコピーします。

とにかく、コードの一部が役立つ場合は、質問してください。ただし、コマンド ボタンのクリック イベント以外には何もありません。

それが十分な情報になることを願っています。

4

2 に答える 2

0

ループと複数選択を使用して、あるリストボックスから別のリストボックスにアイテムを送信することを考えている人向け。役立つコードをいくつか紹介します。両方のリストボックスのプロパティを複数選択に設定する必要があります。1-fmMultiSelectMulti。次に、上記の Siddharth Rout と同じ設定/セットアップを使用します。

 Private Sub CommandButton1_Click()
Dim iIndex
Dim i As Long, j As Long, k As Long
ListBox2.Clear
For i = 0 To 2' loop 3 times for each row in listbox1.
   If ListBox1.Selected(i) = True Then 'Get the first selected Row index number.

   ListBox2.AddItem ListBox1.List(i, 0) 'Gets the first item from listbox1 and puts it in listbox2.
        j = ListBox2.ListCount - 1 ' counts all items in listbox2. which is one item.

        For k = 1 To ListBox1.ColumnCount - 1 'Count the columns listbox1.Now that the first item is in listbox2 _
        move over one column & copy the next value to listbox2. loop 4 more times for 4th entry of row one.
            ListBox2.List(j, k) = ListBox1.List(i, k)
         Next k
   End If
 Next i
End Sub
于 2013-10-26T09:03:10.180 に答える