Foxtable(狐表)用户栏目专家坐堂 → [求助]图表问题


  共有3355人关注过本帖树形打印复制链接

主题:[求助]图表问题

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


加好友 发短信
等级:幼狐 帖子:85 积分:722 威望:0 精华:0 注册:2018/5/2 16:58:00
[求助]图表问题  发帖心情 Post By:2023/5/5 11:42:00 [显示全部帖子]

看了很久的帮助,也试了很多次,一直没成功
图片点击可在新窗口打开查看
这个Excel做出来的也不是我想要的最终效果,我想实现帮助里图示多列那样的效果,把男、女分开显示
图片点击可在新窗口打开查看
Dim Chart As WinForm.Chart 
        Dim Series As WinForm.ChartSeries 
        Dim t As Table = Tables("EI")
        Chart = e.Form.CreateControl("Chart1", ControlTypeEnum.Chart)
        Chart.ChartType = ChartTypeEnum.Bar
        Chart.SetBounds(0, 0, 600, 300) 
        Chart.BarClusterWidth = 90
        Chart.Dock = System.Windows.Forms.DockStyle.Fill 
        e.Form.Controls("NavBar1").NavPages(2).AddControl(Chart)
        For Each c As Col In t.Cols
            If c.Name <> "性别" Then
                Series = Chart.SeriesList.Add() 
                Series.Text = c.Name 
                Series.Length = t.Rows.Count
                For r As Integer = 0 To t.Rows.Count - 1
                    Series.X(r) = r
                    Series.Y(r) = t.Rows(r)(c.Name)
                    Series.DataLabelText = "{#YVAL}"
                    Series.DataLabelCompass = LabelCompassEnum.North
                Next
            End If
        Next
        For r As Integer = 0 To t.Rows.Count - 1
            Chart.AxisX.SetValueLabel(r, t.Rows(r)("性别")) 
        Next
        Chart.AxisX.AnnoWithLabels = True 
        Chart.VisualEffect = True 
        Chart.LegendVisible = True
        Chart.LegendCompass = CompassEnum.South 
此段编码要怎么改才能实现我想要的效果

 回到顶部
帅哥哟,离线,有人找我吗?
dhyskyworld
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:722 威望:0 精华:0 注册:2018/5/2 16:58:00
  发帖心情 Post By:2023/5/5 12:29:00 [显示全部帖子]

谢谢蓝老师的指点

 回到顶部
帅哥哟,离线,有人找我吗?
dhyskyworld
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:722 威望:0 精华:0 注册:2018/5/2 16:58:00
  发帖心情 Post By:2023/5/5 13:28:00 [显示全部帖子]

多问一句,蓝老师,这个效果是不是不能用动态增加控件来实现,还是说使用动态控件来实现非常麻烦?

 回到顶部