このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/374
#  はじめまして 
#   
#  ・Access2000 
#   
#  下のようなテーブルがあったときに 
#   
#  テーブルA 
#  名前 科目 点数 
#  ---------------------- 
#  岡村 国語 51 
#  岡村 数学 48 
#  岡村 英語 39 
#  徳田 国語 60 
#  徳田 数学 30 
#  徳田 英語 48 
#  渡辺 国語 28 
#  渡辺 数学 67 
#  渡辺 英語 25 
#   
#  下のように各科目の最高点を名前つきで取得するにはどうすればいいのでしょうか? 
#   
#  結果(各科目の最高点) 
#  ---------------------- 
#  徳田 国語 60 
#  岡村 数学 48 
#  徳田 英語 48 
#   
#   
#  よろしくおねがいします。 
#   
# 
# 

各科目の最高点を名前つきで取得する(_最高点ならび) :-
        findsetof(_科目,テーブルA(_,_科目,_),_科目ならび),
        findall([_最高点氏名,_科目2,_最高点],(
                    member(_科目2,_科目ならび),
                    findmax([_点数,_名前2],テーブルA(_名前2,_科目2,_点数),[_最高点,_最高点氏名])),
                _最高点ならび).