label怎么做走势图啊！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case c.Text

Case "销售额"

tp = DateGroupEnum.Year

这个是不是应该怎么改改啊

还是不对呢！时间那个是不是要删除啊！感谢感谢

Dim Chart As WinForm.Chart = e.Form.Controls("Chart3") ' 引用窗口中的图表

Dim series As winform.ChartSeries

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

Chart.AxisX.ClearValueLabel

Dim tp As DateGroupEnum = 0

For i As Integer = 111 To 115

Dim c As WinForm.RadioButton= e.Form.Controls("Chart3" & i)

If c.Checked Then

Select Case c.Text

Case "销售额"

tp = DateGroupEnum.Year

Case "利润"

tp = DateGroupEnum.Quarter

Case "合计成本"

tp = DateGroupEnum.month

Case "货物成本"

tp = DateGroupEnum.Week

Case "物流成本"

tp = DateGroupEnum.day

Case "其它成本"

tp = DateGroupEnum.day

End Select

Exit For

End If

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))

g.Groups.AddDef("回款日期", tp, "日期")

g.Totals.AddDef("销售额")

g.Totals.AddDef("货物成本")

g.Totals.AddDef("物流成本")

g.Totals.AddDef("其它成本")

g.Totals.AddDef("合计成本")

g.Totals.AddDef("利润")

g.Build()

Dim t As Table = Tables("统计表1")

t.Sort = "日期"

For i As Integer = 111 To 116

Dim c As WinForm.CheckBox = e.Form.Controls("CheckBox" & i)

If c.Checked Then

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

Series.Length = t.Rows.Count

Series.Text = c.Text

For r As Integer = 0 To t.Rows.Count - 1

Series.X(r) = r

Series.Y(r) = t.Rows(r)(c.Text)

End If

For r As Integer = 0 To t.Rows.Count - 1

Chart.AxisX.SetValueLabel(r, t.Rows(r)("日期")) '指定字符表示

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

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

[此贴子已经被作者于2014-7-31 9:04:30编辑过]

提示这个是什么意思啊！感谢

无法将类型为“Foxtable.WinForm.CheckBox”的对象强制转换为类型“Foxtable.WinForm.RadioButton”。

把控件RadioButton的代码全部拷贝到CheckBox里面吗？还是其他地方啊

只是拷贝进去还是报警。

再帮我看看嘛！我真的改了很多的不行！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图表分析.table

[此贴子已经被作者于2014-7-31 9:53:03编辑过]

感谢被我复制错了！我的错麻烦你了

感谢

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.5.12.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

无法将类型为“Foxtable.WinForm.CheckBox”的对象强制转换为类型“Foxtable.WinForm.RadioButton”。

这个是什么原因啊！

栓出了还是有点问题！

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

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

Dim dt As DataTable = DataTables("表A") '定义一个变量t引用数据表

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

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

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

Dim tjs As String() = {"销售额","货物成本","物流成本","其它成本","合计成本","利润"}

'For Each qy As String In qys

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

'Series.Text = qy '设置图系的标题

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

For r As Integer = 0 To tjs.length - 1

Dim sum As Double = dt.Compute("sum(" & tjs(r) & ")", filter1)

Series.X(r) = r

Series.Y(r) = sum

此主题相关图片如下：360截图20140731115042912.jpg

好的！我不乱改！感谢你哦！

可以让控件的名称不和列的名称一样！列的名称太长了，控件的名称随便用个词语表示。

感谢感谢

此主题相关图片如下：qq截图20140803224402.jpg

哦面板上面的字不能改名吗？

面板上的字太宽了，想怎么简化一下，可不可以用什么代码表示控件显示的名称等于代码需要用的名称啊，或者用控件的编号！

感谢感谢

主题：label怎么做走势图啊！