网络收藏

如题，查了很多资料都没有。  
  着急ing!!!

推荐阅读

private   sub   command1_click()  
      if   mshflexgrid1.textmatrix(mshflexgrid1.row,   2)   <>   ""   and   isnull(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))   =   false   then   该表格有数据  
            with   mschart1  
                  .charttype   =   vtchcharttype2dpie  
                  .columncount   =   2  
                  .rowcount   =   1  
                  dim   xxx   as   double  
                  xxx   =   val(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))  
                  .titletext   =   "饼图示例   完成百分比"  
                  .column   =   1  
                  .row   =   1  
                  .data   =   xxx  
                  .columnlabel   =   "完成百分比"   &   str(xxx)   &   "%"  
                  .column   =   2  
                  .row   =   1  
                  .data   =   100   -   xxx  
                  .columnlabel   =   "剩余百分比"   &   str(100   -   xxx)   &   "%"  
            end   with  
       
       
            with   mschart1  
                  .charttype   =   vtchcharttype2dpie  
                  .columncount   =   2  
                  .rowcount   =   1  
                  dim   xxx   as   double  
                  xxx   =   val(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))  
                  .titletext   =   "饼图示例   完成百分比"  
                  .column   =   1  
                  .row   =   1  
                  .data   =   xxx  
                  .columnlabel   =   "完成百分比"   &   str(xxx)   &   "%"  
                  .column   =   2  
                  .row   =   1  
                  .data   =   100   -   xxx  
                  .columnlabel   =   "剩余百分比"   &   str(100   -   xxx)   &   "%"  
            end   with  
       
      end   if  
   
  end   sub  
   
  private   sub   command2_click()  
      if   mshflexgrid1.textmatrix(mshflexgrid1.row,   2)   <>   ""   and   isnull(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))   =   false   then   该表格有数据  
          with   mschart1  
                .charttype   =   vtchcharttype2dbar  
                .columncount   =   2  
                .rowcount   =   mshflexgrid1.rows   -   1  
                .rowcount   =   1  
                .titletext   =   "直方图示例   本旬出口数量与去年同期对比值"  
                dim   xxx,   xxxx   as   double  
                for   i   =   1   to   mshflexgrid1.rows   -   1  
                      xxx   =   val(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))  
                      xxxx   =   val(mshflexgrid1.textmatrix(mshflexgrid1.row,   2))  
                      .column   =   1  
                      .row   =   1  
                      .data   =   xxx  
                      .column   =   2  
                      .row   =   1  
                      .data   =   xxxx  
                      .rowlabel   =   mshflexgrid1.textmatrix(i,   1)  
                      .rowlabel   =   ""  
                next   i  
                .column   =   1  
                .columnlabel   =   "本旬出口数量"  
                .column   =   2  
                .columnlabel   =   "去年同期对比百分数"  
          end   with  
      end   if  
  end   sub