【结贴】查找属性定义问题**

liyegj

用代码定义查找属性时出错，定义的代码为：
TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.Kind :=TLookupKind.lkDataValues;
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.ValidateKind :=TLookupValidateKind.vkMust;
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.DataBase.URL:='Biz:SYSTEMSYSTEM.DATABASE';
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.SQL.Text :='SELECT FID,FDISPLAYNAME,FDEPT FROM TORGSYSTEM where FDEPT=datasetzsjj.FieldByName(''YSDW'').AsString';
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.KeyField :='FID';
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.DisplayField :='FDISPLAYNAME';
              TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.DropDownButton :=True;

出错的信息提示如下图：

zfang

楼主，你的sql语句有问题
应该改成
'SELECT FID,FDISPLAYNAME,FDEPT FROM TORGSYSTEM where FDEPT='''+datasetzsjj.FieldByName(''YSDW'').AsString+''' ';

liyegj

TSQLDataSet(DataSetZSJJ).FindBizField('YSKZFZR').LookupDef.SQL.Text :='SELECT FID,FDISPLAYNAME,FDEPT,System.array.REVERSE(System.string.SUBSTRING(System.string.SUBSTRING(System.array.REVERSE(FPATH),4+PATINDEX(''%NGO.%'',System.array.REVERSE(FPATH)),100),0,CHARINDEX('''',System.string.SUBSTRING(System.array.REVERSE(FPATH),4+PATINDEX(''%NGO.%'',System.array.REVERSE(FPATH)),100)))) FORG FROM TORGSYSTEM where FDEPT='''+datasetzsjj.FieldByName('YSDW').AsString+'''';


我将sql语句赋值改为上面的内容，运行时出错了，出错提示如下图

zfang

。。。。。。
楼主，请搞清楚一下，平台的函数与数据库的函数是不能通用的。
你1楼的sql改成2楼的，看看是否可以。

你3楼的sql语句我看不懂。
System.array.REVERSE这个是哪里的函数？
你要保证你的sql语句能在数据库环境中执行没有问题才可以。

liyegj

搞定了