如果和这个一样,可以 http://bbs.justep.com/forum.php?mod=viewthread&tid=21421
procedure TSJWG1.Button1Click(Sender: TObject);
var
tmp:tdataset;
begin
tmp:=TSqlDataSet(DataSetBrokerBZSJJ1.DataSet).GetLookupData('zd2').DataSet;
DataSource1.DataSet:=tmp; //给一个显示的数据控件数据源赋值
tmp.First;
while not tmp.Eof do
begin
dialogs.ShowMessage(tmp.Fields[0].AsString+'___'+tmp.Fields[1].AsString);
tmp.next;
end;
end;