Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Допоможите гарны хлопчики и дивченки [D6, Access]

HDD © (2002-02-04 05:35:00)
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
Заранее благодарен Кирилл!

Gregory (2002-02-05 10:41:00) [1]
Напиши так:

If TreeView1.Items.Item[1].Focused then begin Form1.ADOTable1.TableName:="Use"; Form1.ADOTable1.Active:=true; end; If TreeView1.Items.Item[2].Focused then begin Form1.ADOTable1.TableName:="Oil"; Form1.ADOTable1.Active:=true; end; и т.д.

А то у тебя Form1.ADOTable1.Active:=true;в условие не попало, и выполняется каждый раз ...

HDD (2002-02-05 07:45:00) [2]
Помогите люди добрые

HDD (2002-02-04 12:23:00) [3]
if TreeView1.Selected.SelectedIndex = 0 then
Form1.ADOTable1.Active:=false;
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true;
;
if TreeView1.Selected.SelectedIndex = 2 then
Form1.ADOTable1.Active:=false;
Form1.ADOTable1.TableName:="Oil";
Form1.ADOTable1.Active:=true;
;
if TreeView1.Selected.AbsoluteIndex =3 then
Form1.ADOTable1.Active:=false;
Form1.ADOTable1.TableName:="Fuel";
Form1.ADOTable1.Active:=true;
Таже самая беда!
Я это вставляю в процедуру DblClick! Может что не так делаю!

fnatali (2002-02-04 11:50:00) [4]
Form1.ADOTable1.Active:=false ;
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true ;

HDD (2002-02-04 10:13:00) [5]
if TreeView1.Selected.AbsoluteIndex =1 then
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true ;
Пишет Cannot perform this operation on an open dataset! Что это может быть?

HDD (2002-02-04 08:26:00) [6]
Не получается! Пишет Cannot perform this operation on an open dataset! Что это может быть поясните, расскажите пожалуйста!

HDD (2002-02-04 07:50:00) [7]
А как распечатать текст с DBGrid. И как организовать поиск в DBGrid1 к нему присоеденина база данных Access!

fnatali (2002-02-04 06:11:00) [8]
Не очень понятно, что значит "нифига не пашет", могу только строить предположения. Может тебе так надо:

n:=TreeView1.Selected.AbsoluteIndex;
case n of
1: name:="use";
2: name:="oil";
...
end;
Form1.ADOTable1.TableName:=name;
Form1.ADOTable1.Active:=true;

Поиск надо организовывать не по DBGrid, а по набору данных, который к этому DBGrid подключен, например, с помощью Locate.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »