【搞定】[问题]重新定制数据集Select语句的问题？

yuhong

在业务数据集执行查询前，想在执行的Select中，加入定制锁的关键字。

想知道，TSQLDataSet执行Select前的事件是什么及那个属性可以取到要执行的Select 语句？

试着在数据集打开前，即BeforeOpen事件中，修改这个TSqlDataset.DataFetch.CommandText属性的内容，但没有作用。不知该怎么实现了？

lixy

procedure TYWXX12.DataSetBZSJJ1BeforeOpen(DataSet: TDataSet);
begin
     TSqlDataset(dataset).SQL.Text:='SELECT *  FROM SJB1 where sz=2';
end;
这样写，sql是能修改的。

yuhong

但当我改成Select * from commonMaster with (readpast) 时，出下面的错误。

给查询语句Select * from commonMaster with (readpast) 加条件(BillTypeCode='015' )的时候出现异常：不支持的查询语句：Select * from commonMaster with (readpast)

应该在平台生成TSQLDataSet(dataset).DataFetch.CommandText 后，再改他的值，然后再执行。不知可行吗？

lixy

为啥不写在TSqlDataset(dataset).SQL.Text 属性里？？

yuhong

就是写在TSqlDataset(dataset).SQL.Text 里，
Select * from xxxxx with (readpast) where ....
但执行时会出类似3楼的错误。

lixy

procedure TYWXX12.DataSetBZSJJ1BeforeOpen(DataSet: TDataSet);
begin
     TSqlDataset(dataset).SQL.Text:='SELECT *  FROM SJB1 with (readpast) where sz=2';
end;
没报错。不知道是不是我写的不对？

yuhong

procedure TYWXX12.DataSetBZSJJ1BeforeOpen(DataSet: TDataSet);
begin
     TSqlDataset(dataset).SQL.Text:='SELECT *  FROM SJB1 with (readpast) where sz=2';
     TSqlDataset(dataset).SQLFilter:=' sz=3';
     TSqlDataset(dataset).SQLFiltered:=True;
end;
你象上面的这样写，再试试，也就是加上SQLFilter

lixy

with语句本来是不支持的。  所以不要用sqlfilter了。

yuhong

结贴吧。