جستجو در Treeview

[ehsane]

با سلام به همه دوستان

دوستان عزیز من ایندکسهای مربوط به یک Treeview را در بانک ذخیره کرده ام حال میخواهم با حرکت بر روی رکوردهای بانک Treeview نیز تغییر و بر اساس ایندکس مربوطه متن مورد نظر در treeview را select کند.

با تشکر

[m-khorsandi]

درود

چطور رکوردها رو به TreeView اضافه کردید؟ منظورم اینه که از چه دستوراتی استفاده کردین؟

[ehsane]

دوست عزیز برای ایجاد از دستور زیر استفاده کرده ام

if memo2.Text = '' then
begin
with TreeView1.Items do
begin
AddChild(Treeview1.Selected,'æÔå ÌÏíÏ');
end;
end;

[vcldeveloper]

برای پیدا کردن node مربوط به رکوردانتخاب شده در جدول:


procedure TForm1.AdoTable1AfterScroll(DataSet: TDataSet);
var
i : integer;
begin
for i := 0 to TreeView1.Items.Count-1 do
begin
with TreeView1 do
if Items[i].Text = DataSet.FieldByName('OrderNo').AsString then
begin
SetFocus;
Selected := TreeView1.Items[i];
Break;
end;
Application.ProcessMessages;
end;
end;


برای پیدا کردن رکورد مربوط به node انتخاب شده در TreeView:


with (Sender as TTreeView) do
AdoTable1.Locate('OrderNo',Selected.Text,[]);

[ehsane]

جناب آقای کشاورز با تشکر از راهنمایی شما ، مشکل حل شد.