|  |  | 
 |  |  | use"lang.vl" | 
 |  |  | use "win.vl" | 
 |  |  | use "treeview.vm" | 
 |  |  | use "file.vl" | 
 |  |  | use "dev:vm[xdwtable.vm]" | 
 |  |  | #include <wobject/xstring.hpp> | 
 |  |  | #include <xcontrol/xtreeview.hpp> | 
 |  |  | #include <xcontrol/xdwgrid.hpp> | 
 |  |  | #include <wobject/xdouble.hpp> | 
 |  |  | #include <xcontrol/xlayersheet.hpp> | 
 |  |  |  | 
 |  |  | #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" | 
 |  |  | #include "viewobject/view.base.hpp" | 
 |  |  |  | 
 |  |  | using xml = KXMLDOMDocument; | 
 |  |  |  | 
 |  |  | unit vbusiness.vpage | 
 |  |  | [ | 
 |  |  | 
 |  |  |           | 
 |  |  |          int OnCmdDispatch0(xstring comdid) | 
 |  |  |          { | 
 |  |  |             xaserverarg arg = new xaserverarg; | 
 |  |  |             arg.setNativePointer(arg.CreateInstance());							 | 
 |  |  |             xaserverarg arg; | 
 |  |  | 									 | 
 |  |  |             arg = win::GetParam(); | 
 |  |  |             arg.AddArg(L"comdid",comdid); | 
 |  |  |             int xitem = treeview::GetSelectedItem(tv_gs.GetId()); | 
 |  |  | 
 |  |  |  | 
 |  |  |                //alert(xstring(citem)); | 
 |  |  |                if (citem==0){//树视图有子节点 | 
 |  |  |                   xml x=new xml; | 
 |  |  |                   x.setNativePointer(xml::CreateInstance()); | 
 |  |  |                   xaserverarg arg=new xaserverarg; | 
 |  |  |                   arg.setNativePointer(arg.CreateInstance());	 | 
 |  |  |                   xml x; | 
 |  |  | 						 | 
 |  |  |                   xaserverarg arg; | 
 |  |  | 						 | 
 |  |  |                   arg.AddArg(L"parentID",pid); | 
 |  |  |                   //if(xaserver::ExecXQuery(GetServerUrl(),L"[ItemCategoryEx.xq]",arg.GetString(),x)!=1) | 
 |  |  |                   if(url::get(GetEntityName(1)+L"/entity/category",arg.GetString(),x)!=1) | 
 |  |  | 
 |  |  |          int CreateRootTree(){ | 
 |  |  |             xstring rootid=L"00000000-0000-0000-0000-000000000000"; | 
 |  |  |             xml x=new xml; | 
 |  |  |             x.setNativePointer(xml::CreateInstance());							 | 
 |  |  | 											 | 
 |  |  |             x.LoadXml(L"<Category HasChild='1'><CategoryID>"+rootid+L"</CategoryID></Category>"); | 
 |  |  |             int hroot=treeview::InsertItem(tv_gs.GetId(),L"公司产品类别", x.GetXmlDoc().documentElement, 17); | 
 |  |  |             CreateSubTree(hroot); |