【结帖】动态查找属性 问题**

sydneyyue

在dataedit的单击事件中写有下面这些代码，但是 单击dataedit时，没有出现下拉框。 代码是执行了的。 谢谢！
//定义动态查找属性
  TSQLDataSet(DataSetBroker1.DataSet).Open;             //先打开数据集
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.Kind:= TLookupKind.lkDataValues;               //查找类型
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.ValidateKind:= TLookupValidateKind.vkMust; //查找值范围
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DataBase.URL:= 'Biz:\BDSCGLXT\BDSJK.Database';
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.SQL.Text:='';   // 查找数据集的SQL 语句
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.KeyField:=dedtCodeFieldName.Text.Trim;                  //关键字段
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DisplayField:=dedtCodeShowName.Text.Trim;              //显示字段
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DropDownButton:=True;                        //是否显示下拉


  //为查找属性的SQL语句赋值
  with TSQLDataSet(DataSetBroker1.DataSet) do
  begin
    //temp:='SELECT '+dedtCodeFieldName.Text.Trim+','+dedtCodeShowName.Text.Trim+' FROM '+dedtCodeTabname.Text.Trim;
    TSQLDataSet(DataSetBroker1.DataSet).BizFieldByName('sParValue').LookupDef.SQL.Text:='SELECT '+dedtCodeFieldName.Text.Trim+','+dedtCodeShowName.Text.Trim+' FROM '+dedtCodeTabname.Text.Trim;
  end;

sydneyyue

以前，先做过 动态查找属性，但没有实现。当时，是用 Combobox 来实现的。效果不是很好！

把代码
//定义动态查找属性
  TSQLDataSet(DataSetBroker1.DataSet).Open;             //先打开数据集
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.Kind:= TLookupKind.lkDataValues;               //查找类型
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.ValidateKind:= TLookupValidateKind.vkMust; //查找值范围
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DataBase.URL:= 'Biz:BDSCGLXTBDSJK.Database';
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.SQL.Text:='';   // 查找数据集的SQL 语句
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.KeyField:=dedtCodeFieldName.Text.Trim;                  //关键字段
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DisplayField:=dedtCodeShowName.Text.Trim;              //显示字段
  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('sParValue').LookupDef.DropDownButton:=True;                        //是否显示下拉

写到BizFormCreate中时，会出现下拉框。但点击时，会报错：

sydneyyue

点击2楼错误中的“确定”后，又弹出了新的错误：

yancm

动态修改查找属性后执行LayOutChange方法

TBizDataSet(DataSetBroker1.DataSet).LayoutChange;

sydneyyue

真的，可以了。 能告诉我，这句代码的意思吗？

sydneyyue

这样，点击下拉框： 显示关键字段和查找字段。如何，只显示 查找字段（隐藏关键字段）呢？

yancm

要养成不同问题单独开贴的好习惯。
这样我们回起来方便，您找起来也方便。

sydneyyue

谢谢您！
在代码中可以实现吗， 因为 表，显示字段，关键字段，都是动态的。

sydneyyue

我这是 同一问题。

sydneyyue

在动态查找属性中，能否通过设置， 达到只显示 显示字段的目的。谢谢！