カレントレコードの並べ替えについて

解決

---

サーバー上のデータベースからデータを呼び出し、LISTに表示をしています。
そのリスト上でのレコードを上下ボタン操作により、並び替えをさせたいと思っています。、よい方法を思いつきません。なにかよい方法があれば教えてください。
コード・ 名前 ・ソートキー          コード・ 名前 ・ソートキー
  １  ・ NAME1・    １                ２  ・ NAME2・    １            
  ２  ・ NAME2・    ２        →      １  ・ NAME1・    ２
  ３  ・ NAME3・    ３                ３  ・ NAME3・    ３

                              ↑
          コード２のデータを選択し、▲ボタンクリック

編集 削除

---

たしかリストボックスは先頭の値からソートキーとして扱うはずだから、

type some
  i_code  as long
  s_name  as string
  i_Key   as long
end type

private x() as some
ってのに格納されているとすれば、
List1のSorted(たしか)プロパティをTrueにして、

with List1
  for i=LBound(x) to UBound(x)
    .additem x(i).i_Key
    list1.itemdata(.newindex)=i
  next
end with

あとは、
for i=0 to list1.listcount-1
  debug.? x(.itemdata(i)).s_name
next

…動く保障はないけど、大体こんな感じ。

編集 削除

---

ありがとうございます。
チャレンジしてみます。

編集 削除

---

ありがとうございました。
なんとか完成しました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。