统计图x轴下标问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

                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()

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