主题：[求助]专业报表将份额和占比转换百分比？

和原来一样，列名是由代码编辑器中字段中加入，不是表达式列名。

如果只加入rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
则全部列都显示百分比，可能条件判断有问题。

此主题相关图片如下：2011-3-8 16-35-07.png

 ' Select Col.Name
      '  Case "林龄","登记权利" ,"林分起源" ,"林种","面积","宗地序号"
           rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
          '  Case Else
         '  rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )
   ' End Select

那就是你代码中的列名不对，不会有别的原因的。

先查看此表的结构，参考：

http://help.foxtable.com/topics/0193.htm

 

 

终于柳暗花明，原来是临时统计表的列名，不是来源表的列名。

If e.Form.Controls("RadioButton6").Checked Then
    Select Col.Name
        Case "面积_1hp","面积_1vp" ,"面积_2hp","面积_2vp","面积_3hp","面积_3vp","面积_4hp","面积_4vp" ,"面积_5hp","面积_5vp","面积_6hp","面积_6vp"
            rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
        Case Else
            rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )
    End Select
Else
    Select Col.Name
        Case "宗地序号_1hp","宗地序号_1vp" ,"宗地序号_2hp","宗地序号_2vp","宗地序号_3hp","宗地序号_3vp","宗地序号_4hp","宗地序号_4vp" ,"宗地序号_5hp","宗地序号_5vp","宗地序号_6hp","宗地序号_6vp"
            rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
        Case Else
            rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )
    End Select
End If