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

此主题相关图片如下：2011-3-7 11-00-27.png

 g.HorizontalProportion = True

 g.VerticalProportion = True

这样：

 

rx.Text = Format(r("列名"),"#0.00%")

 这是个动态报表，不知怎么加  rx.Text = Format(r("列名"),"#0.00%")

 

此主题相关图片如下：2011-3-7 11-48-44.png

 

 帖子内容长度不能大于16240,您已经输入了35319个字

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报表代码.txt

For Each Col AS DataCol In Dt.DataCols
    rt.Cells(0,Count).Text = Col.Caption
    For r As Integer = 0 To dt.DataRows.Count - 1
        If col.Name = "要百分比显示的列的名称" Then
            rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
        Else
           rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )
        End If
    Next
    Count = Count + 1
Next

试了多次不生效，不知是不是这样

用      If col.Name = "要百分比显示的列的名称" Then
            rt.Cells(r +1,Count).Text = Format(dt.DataRows(r)(Col.Name ),"#0.00%")
        Else
           rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )
        End If
代换原 rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name )

是的

不行的，  If col.Name = "林种" Then 或"林龄"、"登记权利"、"林分起源"、"面积"

都不会百分比显示。还请狐爸费心!

Select Col.Name
      case "百分比列名1"," 百分比列名2, "百分比列名3" ......
            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

还是不行

For Each Col AS DataCol In Dt.DataCols
      rt.Cells(0,Count).Text = Col.Caption
      For r As Integer = 0 To dt.DataRows.Count - 1
            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
       Next
           Count = Count + 1
 Next

这么设置后，显示的成什么样了？

你是不是列名错了，注意列名和标题不一定相同的。