Ребят такая проблема - есть процедура, которая осуществляет выбор данных о сотрудниках компании из представления FullLIst на основе текущего выбранного элемента в иерархии TreeView, собственно вот она
Код:
begin
Screen.Cursor := crSQLWait; //Изменяем форму указателя мыши
//на "песочные часы"
with datamodule1, Table1, TreeView.Selected do
begin
Close; //Закрываем набор данных Table1
//Выбираем все столбцы из представления FullList
DataSet.CommandText := 'select * from FullList ';
if AbsoluteIndex > 0 then
begin //Если выбран НЕ корневой элемент структуры, то ...
//Находим соответствующую запись в таблице DEPS
datamodule1.sidsDeps.Locate('DeptFullName', Text,[]);
//Добавляем условие в запрос -
//выбор сотрудников из всех подразделений, для которых
//содержимое поля Parents начинается с соответствующего
//списка идентификаторов
!!!!!! DataSet.CommandText := DataSet.CommandText+'WHERE DepID = '+IntToStr(datamodule1.sidsDepsDeptID.AsInteger) +'or Parents starting with';
if Parent.AbsoluteIndex > 0 then
DataSet.CommandText := DataSet.CommandText + datamodule1.sidsDepsParents.AsString;
//Добавляем к списку Parents идентификатор
//текущего подразделения
DataSet.CommandText := DataSet.CommandText +IntToStr(datamodule1.sidsDepsDeptID.AsInteger) +',';
end;
if ckByPoss.Checked then
//Если есть сортировка по уровню должностей, то...
!!!! DataSet.CommandText := DataSet.CommandText+'order by PosLevel, LastName, FirstName, FatherName'
else
//в противном случае сортируем строки по именам
!!!! DataSet.CommandText := DataSet.CommandText +'order by LastName, FirstName, FatherName';
Open; //Выбираем данные из представления FullList
Screen.Cursor := crDefault; //Восстанвливаем указатель мыши,
//выбранный по умолчанию
end;
Возникает непонятная мне ошибка Token Unknow и далее те строчки напротив которых стоят !!!!(ругается либо на "=" либо на by),
Т.е dataset не хочет выполнять запрос, который я внего помещаю. Изза чего может происходить такая ошибка?