http://bbs.justep.com/forum.php?mod=viewthread&tid=3719
用3楼的方式:
var
lBizField: TBizField;
lStream: TMemoryStream;
begin
lBizField := TBizDataSet(DataSetBrokerBZSJJ1.DataSet).FindBizField('SZ');
if lBizField <> nil then
begin
lBizField.LookupDef.Kind := TLookupKind.lkEnumValues;