代码如下
TSqlDataSet(DSB_CY.DataSet).FindBizField('atst').LookupDef.Sql.Text :=
'select * from blbm_kind where tcs=''2'' ';
TSqlDataSet(DSB_CY.DataSet).BizFieldByname('atst').LookupDef.Sql.Text :=
'select * from blbm_kind where tcs=''2'' ';
TSqlDataSet(DSB_CY.DataSet).LayoutChange;