所有代码如下:
procedure TTGZXnew.Button1Click(Sender: TObject);
var
dtree:TDataTreeView;
str:string;
nroot,nfir:TTreeNode;
ndsec,nsec: TDataTreeNode;
i,j,row,col:integer;
ldoc:TSheetDoc;
begin
{自己写表格数据}
dtree := YWKZYXX.TRXJZYLB(DocView1.Doc).DataTreeView;
ldoc := TSheetDoc(DocView2.Doc);
nroot := dtree.Items[0];
//TSheetDoc(DocView2.Doc).Cells[2,1].Editing;
i := 0;
j := 0;
row := 1;
col := 1;
ldoc.Cells[1,col].Value := nroot.Text;
col := col+1;
nfir := nroot.getFirstChild;
while nfir <> nil do begin
{第一级类别}
ldoc.Cells[1,col].value := nfir.text;
col := col+1;
{第二级类别}
nsec := TDataTreeNode(nfir);
dtree.LoadChildren(nsec);
ndsec := TDataTreeNode(nsec.getFirstChild);
while ndsec<> nil do begin
ldoc.Cells[1,col].Value := ' '+ndsec.Text;
col := col+1;
ndsec:= nsec.GetNextChild(ndsec);
end;
nfir := nroot.GetNextChild(nfir);
end;
//TSheetDoc(DocView2.Doc).Cells[2,2].Value := 'jkl'+str;
ldoc.RowCount := col+2;
docview2.Doc.Close;
docview2.OpenView(TDocMode.dmView);
end; |