Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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
Заранее благодарен Кирилл!



fnatali   (2002-02-04 06:11) [1]

Не очень понятно, что значит "нифига не пашет", могу только строить предположения. Может тебе так надо:

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.



HDD   (2002-02-04 07:50) [2]

А как распечатать текст с DBGrid. И как организовать поиск в DBGrid1 к нему присоеденина база данных Access!



HDD   (2002-02-04 08:26) [3]

Не получается! Пишет Cannot perform this operation on an open dataset! Что это может быть поясните, расскажите пожалуйста!



HDD   (2002-02-04 10:13) [4]

if TreeView1.Selected.AbsoluteIndex =1 then
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true ;
Пишет Cannot perform this operation on an open dataset! Что это может быть?



fnatali   (2002-02-04 11:50) [5]

Form1.ADOTable1.Active:=false ;
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true ;



HDD   (2002-02-04 12:23) [6]

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! Может что не так делаю!



HDD   (2002-02-05 07:45) [7]

Помогите люди добрые



Gregory   (2002-02-05 10:41) [8]

Напиши так:


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; в условие не попало, и выполняется каждый раз ...




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




Наверх





Память: 0.73 MB
Время: 0.014 c
14-90637          Yakudza               2002-01-11 18:02  2002.02.28  
Глюки


1-90535           Андрей Сенченко       2002-02-11 09:41  2002.02.28  
StringGrid.Options в Runtime


4-90707           DNT                   2001-12-30 13:37  2002.02.28  
Hook


14-90649          panov                 2002-01-14 07:17  2002.02.28  
Нужен алгоритм


3-90518           СергейМНК             2002-02-04 06:15  2002.02.28  
Как сделать чтобы выскакивал LoockUp список при начале набора текста в DBGrid в LoockUp поле