Foxtable(狐表)用户栏目专家坐堂 → 统计图x轴下标问题


  共有2508人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
哎you
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:68 积分:527 威望:0 精华:0 注册:2016/7/15 23:57:00
  发帖心情 Post By:2016/7/31 12:14:00 [只看该作者]

我之前用的是下面的代码  是统计图和统计表在一个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()


 回到顶部
总数 19 1 2 下一页