【搞定】动态查找属性不起作用？？？？

xuhuaiyang · 发表于 2007-6-11 16:11:34

高手帮看看，呵呵
procedure TZJLX.FormDocCreate(Sender: TObject);
begin
//定义动态查找属性
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.Kind := TLookupKind.lkDataValues;          //查找类型
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.ValidateKind := TLookupValidateKind.vkMust; //查找值范围
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.SQL.Text    := '';                      // 查找数据集的SQL 语句
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.KeyField    := 'GUID';                   //关键字段
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.DisplayField := 'ZJXM';                //显示字段
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).FindBizField('BLZ').LookupDef.DropDownButton := True;                      //是否显示下拉

//为查找属性的SQL语句赋值
with TSQLDataSet(DataSetBrokerLXTJZD.DataSet) do
begin
   close;
   TSQLDataSet(DataSetBrokerLXTJZD.DataSet).BizFieldByName('BLZ').LookupDef.SQL.Text := 'select GUID,ZJXM from ZJXXB';
   //'+strDevTab+' where sStatId = '''+dedtBDZ.text+'''';
   open;
end;
end;

xuhuaiyang · 发表于 2007-6-11 16:15:14

我把查找属性的SQL写成这样，程序都没反映，按说应该报错的。SQL语法都不满足。
TSQLDataSet(DataSetBrokerLXTJZD.DataSet).BizFieldByName('BLZ').LookupDef.SQL.Text := 'rom ZJXXB';

atiger · 发表于 2007-6-11 17:11:33

请问，你设置断点了吗？这些代码按你的需求执行了吗？

lisb · 发表于 2007-6-11 17:14:42

参考这个 http://bbs.justep.com/forum.php? ... 9%D5%D2%CA%F4%D0%D4

xuhuaiyang · 发表于 2007-6-12 07:18:05

我设置断点了，也确实执行了。因为这是表单的构造函数，表单一打开就执行！

atiger · 发表于 2007-6-12 12:01:58

你在业务信息的数据集的字段编辑器上，增加了需要修改查找属性的这个字段了马?

如果没有，加进来再测试

zfang · 发表于 2007-6-13 15:09:49

楼主，搞定了吗？

zfang · 发表于 2007-6-15 10:56:24

先结帖了，有问题请开新贴

xuhuaiyang · 发表于 2007-6-16 16:53:37

对不起，第一次问问题，不知道规矩，问题还没解决，我再发新帖吧

		自动登录	找回密码
密码			立即注册

【搞定】动态查找属性不起作用？？？？

补充一点

设置断点了

道歉