主题：统计图x轴下标问题

我之前用的是下面的代码  是统计图和统计表在一个excel表里的  能不能就在这个代码里修改 使其保存合计模式 麻烦了

 

Dim b As New XLS.Book
Dim t As Table = Tables("统计表")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1")
For c As Integer = 0 To t.Cols.Count -1 '添加列标题
    s(0, c).Value = t.Cols(c).Name
Next
For r As Integer = 0 To t.Rows.Count - 1 '填入数据
    For c As Integer = 0 To t.Cols.Count -1
        s(r +1, c).Value = t.rows(r)(c)
    Next
Next
'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
b.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

Dim t As Table = Tables("统计表")
t.SaveExcel("d:\test.xls", "统计表")
Dim b As New XLS.Book("d:\test.xls")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1")

'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
b.Save("d:\test.xls")
Dim Proc As New Process
Proc.File = "d:\test.xls"
Proc.Start()

赞   那些占比的格式可以在导出时也是百分比的格式吗   这个代码导出后是小数

发现一个小问题  那个代码导出后会有两个相同的统计图重叠 

 不可能，实例发上来。

先点年统计表，再点打印当前图表（你给我点代码目前只放在年统计表里），如果第一次没出现重叠图，可以再重复上面点步骤就会有了。

顺便帮我解决下导出excel表后占比问题，怎么弄成百分比形式 嘻 辛苦了

也帮我看下 为什点筛选选择等于某一天的时候都会出错 

                Dim t As Table = Tables("年统计表")
                Dim b As New XLS.Book
                Dim s As XLS.Sheet = b.Sheets(0)
               
                For c As Integer = 0 To t.Cols.Count -1 '添加列标题
                    s(0, c).Value = t.Cols(c).caption
                Next
                Dim Style As XLS.Style = b.NewStyle() '定义新样式
                Style.backColor = Color.Red '设置样式的字体颜色
                For r As Integer = 0 To t.Rows.Count(True) - 1 '填入数据
                    For c As Integer = 0 To t.Cols.Count -1
                        If t.Rows(r, True)("年份") = "总计" Then
                            s(r +1, c).style = style
                        End If
                        If t.Cols(c).Caption = "占比" OrElse t.Cols(c).Caption = "环比增长" Then
                            s(r +1, c).Value = Format(t.rows(r, True)(c), "0.00%")
                        Else
                            s(r +1, c).Value = t.rows(r, True)(c)
                           
                        End If
                    Next
                Next
                Dim Chart As WinForm.Chart = Forms("投诉统计分析").Controls("Chart1")
               
                '插入图表
                s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
                b.Save("d:\test.xls")
                Dim Proc As New Process
                Proc.File = "d:\test.xls"
                Proc.Start()
               

忘记来回复了   你这段代码完美的解决了我的问题  多谢红袍兄