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

解決


初心者(基本内容ですみません・・・)  2004-06-09 03:05:44  No: 113784

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

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


いちゆ  2004-06-09 04:29:27  No: 113785

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

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

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


初心者  2004-06-09 22:34:16  No: 113786

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


初心者  2004-06-11 02:25:16  No: 113787

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加