自定义生成图表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义生成图表

共有1852人关注过本帖树形打印复制链接主题：自定义生成图表

LTHERO

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00

自定义生成图表 发帖心情

Post By：2017/10/25 11:55:00 [只看该作者]

如何获取我输入的值到生成图表的代码中？

Dim a As String =Forms("自定义生成图表").controls("TextBox1").value

Dim b As String=Forms("自定义生成图表").controls("TextBox2").value

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim tbl As DataTable = DataTables("工时") '定义一个变量tbl引用数据表

Dim lst As List(Of String) = tbl.GetValues(a) '获得产品名称集合

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = lst.Count '设置图系的长度

For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = tbl.Compute("Sum(b)","[a] = '" & lst(i) & "'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20171025115350.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/10/25 12:17:00 [只看该作者]

文本框输入的是什么内容？想生成什么效果？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 12:23:00 [只看该作者]

Dim a = e.Form.Controls("TextBox1").Text

Dim b = e.Form.Controls("TextBox2").Text

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim tbl As DataTable = DataTables("工时") '定义一个变量tbl引用数据表

Dim lst As List(Of String) = tbl.GetValues(a) '获得产品名称集合

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = lst.Count '设置图系的长度

For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = tbl.Compute("Sum(" & b & ")","[a] = '" & lst(i) & "'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示

LTHERO

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00

Post By：2017/10/25 13:12:00 [只看该作者]

还是会报错，您看一下。
图片点击可在新窗口打开查看

此主题相关图片如下：错误.png

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 14:30:00 [只看该作者]

Dim a = e.Form.Controls("TextBox1").Text

Dim b = e.Form.Controls("TextBox2").Text

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim tbl As DataTable = DataTables("工时") '定义一个变量tbl引用数据表

Dim lst As List(Of String) = tbl.GetValues(a) '获得产品名称集合

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = lst.Count '设置图系的长度

For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = tbl.Compute("Sum(" & b & ")","[" & a & "] = '" & lst(i) & "'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示

LTHERO

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00

Post By：2017/10/25 14:53:00 [只看该作者]

不关闭窗口第二次生成图表时，标题会覆盖！
图片点击可在新窗口打开查看

此主题相关图片如下：inked错误_li.jpg

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 14:57:00 [只看该作者]

Dim a = e.Form.Controls("TextBox1").Text
Dim b = e.Form.Controls("TextBox2").Text

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim tbl As DataTable = DataTables("工时") '定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetValues(a) '获得产品名称集合
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = lst.Count '设置图系的长度
For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("Sum(" & b & ")","[" & a & "] = '" & lst(i) & "'") '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示

LTHERO

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00

Post By：2017/10/25 15:02:00 [只看该作者]

谢谢细心的帮助！问题解决了！谢谢！

下一主题 >> << 上一主题

主题：自定义生成图表