Форум: "Базы";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Вниз

два грида на TNotebook, как сделать with или присвоение   Найти похожие ветки 

← →
КомофОнСамый   (2004-02-10 13:55) [0]

дело в том что есть кнопочка Подсчет, и так как реализация подсчета одинакова нужно сделать следующее

procedure TForm1.mnCountClick(Sender:TObject);
var
myGridPtr:TDBGrid;
begin
if(Notebook.ActivePage="Doc")then myGridPtr:=DBGridDoc
else myGridPtr:=DBGridTurn;
with(myGridPtr)do
begin
...//далее реализация поиска.


но почему то так не получается :(

---

← →
Deniz   (2004-02-10 14:04) [1]

Что не получается?

---

← →
КомофОнСамый   (2004-02-10 14:11) [2]

ой. сорри - оказся ошибка была в другом.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c