【结贴】资源集中，如何在动态创建的数据集中，使用OnGetFieldText事件呢？**

hdwt

资源集中，如何在动态创建的数据集中，使用OnGetFieldText事件呢？
谢谢，
虽然，OnGetFieldText事件，可以即时的获得字段的显示值，但是有太多的记录的话，一个个的去设置，也太烦。 希望在资源集中可以实现类似的操作。

lixy

什么意思？
什么一个个设置？  你想得到什么效果？

hdwt

想在资源集中，使用 OnGetFieldText 事件

hdwt

顶下

lixy

你要描述清楚，顶下不如写明白需求。  我实在不知道你要做什么，你可以打我分机224

hdwt

具体情况是这样的：项目中很多地方用到组织机构的多选，比如人员或岗位。
因为希望存的是编码，显示的是汉字，所以我们通过弹出组织机构窗体选择并保存，通过数据集的OnGetFieldText 事件显示汉字。
因为用的地方很多，所以希望把这两部分放到同一资源集以方便调用。现在的问题是，因为OnGetFieldText 事件是数据集上的事件，不知道该怎么放到资源集上，以及怎么把OnGetFieldText 事件赋值给某一具体数据集。

lixy

明白了。我去试试

lixy

unit ZYJ1;

interface

uses
  Business.System, Business.Model, Business.Data;

type
  TZYJ1 = class(TBizLibrary)
  private
    {private declarations}
  public
  function findquery(AOwner: Business.System.TComponent):string;

  procedure MyGetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
    {public declarations}
  end;

implementation
procedure TZYJ1.MyGetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
begin
     Text:='文字';
end;
function TZYJ1.findquery(AOwner: Business.System.TComponent):string;
var
   tmpDataset:Tsqldataset;
begin
  tmpDataset:=tsqldataset.Create(AOwner);
  try
  tmpdataset.Database.URL:='Biz:\JUSTEP\justepSJK.Database';
   tmpdataset.SQL.Text:='SELECT *  FROM DDZB  ';
   tmpdataset.Open;
   [B]tmpdataset.OnGetFieldText :=MyGetFieldText;[/B]
   result:= tmpdataset.Fields[0].AsString;
   finally
   tmpDataset.Free;
   end;
end;

end.

yancm

？？

jiahaiminghr

由于长时间没有反馈，先结贴了！
有问题请开新贴。