Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
ВнизИспользование закладок Найти похожие ветки
← →
AlexA (2002-11-12 13:15) [0]имеем следующее
НД IBQPL_Date типа TIBQuery
переменная RunGeneneralI объявлена для модуля
модуль данных DM
Написана процедура
procedure RunGeneralItI;//подсчет суммы по полю "Run_General", набора данных IBQPL_Date
var
Sum_Tmp : real;
MyBookMark: TBookMark;
begin
with DM do
begin
IBQPL_Date.DisableControls;
Sum_Tmp:=0;
MyBookMark := IBQPL_Date.GetBookmark; //вроде заложил закладку
IBQPL_Date.First;
while not IBQPL_Date.Eof do
begin
if IBQPL_Date["Run_General"]<> null
then Sum_Tmp := Sum_Tmp + IBQPL_Date["Run_General"];//подсчет суммы
IBQPL_Date.Next;
end;
If IBQPL_Date.BookmarkValid(MyBookMark) //проверяю наличие закладки. Условие всегда False
then IBQPL_Date.GotoBookmark(MyBookMark); //это соответственно не выполняется :-(
IBQPL_Date.EnableControls;
RunGeneneralI:= Sum_Tmp;
end;
end;
Что я делаю не так?
И еще поле, с каким работал можно ли наподобии "заложить" закладкой.
Спасибо.
← →
Victor_Cr (2002-11-12 13:32) [1]Во-первых, ты забыл освободить закладку FreeBookmark.
И потом, попробуй так:
var
BM: BookMarkStr;
begin
...
BM := Query1.Bookmark;//Заложил закладку
...
Query1.Bookmark := BM;//Вспомнил ее.
...
end;
Главное что BookMarkStr типа стринг. А значит освобождать ресурсы не нужно. И вообще Борманд не рекомендует пользоваться:
GotoBookmark
BookmarkValid
GetBookmark
Они оставлены только для совместимости со старыми версиями.
← →
AlexA (2002-11-12 17:55) [2]Спасибо работает.,Но...
Помоги еще раз.
У меня происходит следующее при ищмение поля вызывается указаная процедура и курсор переходи тна следующее поле, но курсор это не виден... Что делать
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c