|
在数据集里设置了ry字段的查找属性定义,运行后可以下拉出全部的值,想用代码过虑一下,加了where条件,不起作用!!!
代码如下:
TSQLDataSet(InfoBrokerYWXX1.Info.DataSetByID('BZSJJ1')).BizFieldByName('ry').LookupDef.SQL.Text:=
TSQLDataSet(InfoBrokerYWXX1.Info.DataSetByID('BZSJJ1')).BizFieldByName('ry').LookupDef.SQL.Text+' where rlz=''公交宿舍'' ';
TSQLDataSet(InfoBrokerYWXX1.Info.DataSetByID('BZSJJ1')).LayoutChange;
TSQLDataSet(InfoBrokerYWXX1.Info.DataSetByID('BZSJJ1')).GetLookupData('ry').Refresh; |
|