TreeView من قاعدة بيانات

جرب هذا الكود

ربما هناك حلول افضل ...

uses comobj,excel97,excel2000;
...
procedure ExcelToTreeView(EXLfile:string;treeView:TTreeView);
var
  sheet,XLApp,workbook : variant;
  iRow,iCol,maxRow,maxCol:integer;
  MyTreeNode1: TTreeNode;
  root:boolean;
begin
  screen.Cursor:=crHourGlass;
  try
    XLApp:=createOleObject('Excel.Application');
    XLApp.displayAlerts:=false;
    XLApp.ScreenUpdating:=false;
    XLApp.WorkBooks.Add(EXLfile);
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];

    XLApp.ActiveCell.SpecialCells(xlLastCell).Select;
    maxRow:=XLApp.ActiveCell.Row;
    maxCol:=XLApp.ActiveCell.Column ;

    for iRow:=1 to MaxRow do
    begin
      root:=true;
     for iCol:=1 to maxCol do
     begin
        if(sheet.cells[iRow,iCol].text<>'')then
        with treeview.Items do
        begin
             if root then
             begin
                MyTreeNode1:=nil;
                MyTreeNode1 := Add(MyTreeNode1, sheet.cells[iRow,iCol]);
                root :=not root;
             end
             else
             begin
                AddChild(MyTreeNode1,sheet.cells[iRow,iCol]);
             end;
        end;
     end;
    end;
  finally
    if not VarIsEmpty(XLApp) then begin
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
    screen.Cursor:=crDefault;
  end;
end;

بالنسبة لدعم لليونيكود فهذا شئ راجع لك (إستخدم TreeView تدعم ذلك ) ...

سبب التعديل:

 from procedure ExcelToTreeView(EXLfile:string); to procedure ExcelToTreeView(EXLfile:string;treeView:TTreeView);

اخي الكريم أشكرك على سرعة الرد

ولكن للأسف لقد قمت بكتابة سؤالي بالخطئ فأنا أقصد اكسيس وليس إكسل أرجوا المساعدة

مشكور مرة أخرى

ibukhari كتب:

اخي الكريم أشكرك على سرعة الرد

ولكن للأسف لقد قمت بكتابة سؤالي بالخطئ فأنا أقصد اكسيس وليس إكسل أرجوا المساعدة

مشكور مرة أخرى

الكود في ردي فيه خطأ في وضع الـ nodes في الـ tree ..

جرب المثال A TreeView of Data

بإمكانك تغييره بما يتناسب مع ما تريد