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

Вниз

Допоможите гарны хлопчики и дивченки   Найти похожие ветки 

← →
HDD   (2002-02-04 05:35) [0]

procedure TForm2.TreeView1DblClick(Sender: TObject);
begin
If TreeView1.Items.Item[1].Focused then
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true;
;
If TreeView1.Items.Item[2].Focused then
Form1.ADOTable1.TableName:="Oil";
Form1.ADOTable1.Active:=true;
;
If TreeView1.Items.Item[3].Focused then
Form1.ADOTable1.TableName:="Fuel";
Form1.ADOTable1.Active:=true;
;
If TreeView1.Items.Item[4].Focused then
Form1.ADOTable1.TableName:="Opresnit";
Form1.ADOTable1.Active:=true;
end;
Может можно как то лучше сделать, а то нифига не пашет!
И еще вопросик как организовать поиск по DBGrid1
Заранее благодарен Кирилл!

---

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

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

Наверх

Память: 0.43 MB
Время: 0.006 c