参考
Series.DataLabelText = r("产品") & Math.Round(r("数量")*100/sm,2) & "%" '计算百分比
http://www.foxtable.com/webhelp/scr/0972.htm