var
I: Integer;
begin
for I := 0 to TBizDataSet(DataSetBroker1.DataSet).BizFields.Count - 1 do
begin
if TBizDataSet(DataSetBroker1.DataSet).BizFields[I].DisplayName = '养老金' then
dialogs.ShowMessage(TBizDataSet(DataSetBroker1.DataSet).BizFields[I].ID); //显示 ylj
end;
end;