锘??xml version="1.0" encoding="utf-8" standalone="yes"?>日本aaa在线观看,一区二区福利视频,亚洲人一区二区http://www.aygfsteel.com/geyinglong/category/7810.htmlJava&Oraclezh-cnWed, 28 Feb 2007 00:48:15 GMTWed, 28 Feb 2007 00:48:15 GMT60Ttreeview鐨勫垱寤哄拰鑷姩灞曞紑http://www.aygfsteel.com/geyinglong/articles/32269.htmlJava FlyJava FlyFri, 24 Feb 2006 03:17:00 GMThttp://www.aygfsteel.com/geyinglong/articles/32269.htmlhttp://www.aygfsteel.com/geyinglong/comments/32269.htmlhttp://www.aygfsteel.com/geyinglong/articles/32269.html#Feedback0http://www.aygfsteel.com/geyinglong/comments/commentRss/32269.htmlhttp://www.aygfsteel.com/geyinglong/services/trackbacks/32269.html AddChildToTreeView(nil);//澧炲姞鏍戦《鑺傜偣 AddChildToTreeView(trvUnitTree.TopItem);//涓洪《鑺傜偣澧炲姞瀛╁瓙 trvUnitTree.TopItem.Expand(true);//浠庨《鑺傜偣鑷姩灞曞紑
AddChildToTreeView鐨勬爲鍒涘緩榪囩▼錛?BR>procedure AddChildToTreeView(aParentNode: TTreeNode); var aNode: TTreeNode; begin if aParentNode = nil then begin //鍒濆鍖栨爲 trvUnitTree.Items.Clear; trvUnitTree.OnChange := trvUnitTreeChange; Application.ProcessMessages; end; //鍔犺澆鑺傜偣鐨勫瀛愯妭鐐?BR> if aParentNode <> nil then aParentNode.DeleteChildren; if DBAccess.DoProcess('TUnitInfo', 'GetChildNode', GetTheNodeCode(aParentNode)) = -1 then begin HWShowMessage('鑾峰彇鏁版嵁澶辮觸錛?); exit; end; with DBAccess.ResultDataSet do begin First; while not Eof do begin aNode := trvUnitTree.Items.AddChild(aParentNode, FieldByName('unitname').AsString);//鏁版嵁搴撹〃涓繀欏昏鏈夌埗瀛愬叧緋?BR> trvUnitTree.SetNodeData(aNode, FieldByName('unitnum').AsString); Next; end; end; end;