Тема: Delphi-treeview-БД
У бд є поле варіант, з одиyаковими значеннями, але з різними значеннями поля "НазваПР", так ось програмно
намагаюсь перевірити дочірній вузол як варіант з варіантом у бд, та головним вузлом яке є назвою практ. завдання, котре тежє в бд. (Access)
i
f (TreePracts.Items.Item[0].Level = 0) then //якщо рівень у дереві об'єкта дорівню 0,
begin //то
with ADOTable2 do
Begin
if Assigned(TreePracts.Selected) and Assigned(TreePracts.Selected.Parent) then
if Pos(AnsiUpperCase(fields[1].asstring),AnsiUpperCase(TreePracts.Selected.Parent.Text))<>0 then
if (Locate('Варіант№ п', TreePracts.Selected.Text, [])) then
begin
if FieldByName('УмоваЗадачі').AsString<>'' then
Begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.Add(FieldByName('УмоваЗадачі').AsString);
end;
end;у мене виводить у вміст одне теж по цим варіантам як і у одного, в бд дані різні(так як і має бути), що неправильного???
делал еще так:
if (TreePracts.Items.Item[0].Level = 0) then //якщо рівень у дереві об'єкта дорівню 0,
begin //то
with ADOTable2 do
Begin
if ((Locate('НазваПР', TreePracts.Parent.Selected.Text, [])) and (Locate('Варіант№', TreePracts.Selected.Text, []))) then
begin
if FieldByName('УмоваЗадачі').AsString<>'' then
Begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.Add(FieldByName('УмоваЗадачі').AsString);
end;
end;теж ніфіга, допоможіть колеги.
