从数据集中获取其中字段的完整名称（包括表名）

atiger

var
  i: Integer;
begin
  Memo1.Clear;
  For i:=0 to  TSQLDataset(dsDataSet.DataSet).Fields.Count-1 do
  begin
    if  TSQLDataset(dsDataSet.DataSet).Fields.FieldKind = TFieldKind.fkData  then  //判断字段是否是数据字段
    Memo1.Lines.Add(TSQLDataset(dsDataSet.DataSet).BizFields.Origin.BizTableDef.DisplayName+'.'+
          TSQLDataset(dsDataSet.DataSet).BizFields.Origin.DisplayName);
  end;
end;