[求助][原创]关于图表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下内容是专门发给狐狸爸爸,有点蓝,有点甜,逛逛,lsy,bin浏览

[此贴子已经被作者于2018/2/24 1:49:06编辑过]

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

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

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

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

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

Chart.AxisX.DateType = True

Chart.AxisX.AnnoFormatString = "yyyy-MM-dd"

Dim i As Integer = 0

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 '设置图系的长度

Series.LineColor = Color.Red '线条颜色

Series.MarkShape = MarkShapeEnum.Dot '标识点形状-圆点

Series.MarkColor = Color.Green '标识点颜色-绿色

Chart.SeriesList(i).FitType = FitTypeEnum.Spline '波浪形

Series.DataLabelText = "{#YVAL} 元"

Series.DataLabelCompass = LabelCompassEnum.NorthEast

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

Series.X(r) = t.Rows(r)("日期")

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

Series.TooltipText = "产品: " & c.Name & vbcrlf & "日期: {#XVAL:yyyy-MM-dd}" & vbcrlf & "金额: {#YVAL} 元"

i = i + 1

End If

Chart.LegendVisible = True '显示图列

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

Dim a As C1Chart.C1Chart = Chart.BaseControl

a.ChartArea.AxisX.ScrollBar.Scale = 0.2

a.ChartArea.AxisX.ScrollBar.Visible = True

[此贴子已经被作者于2018/2/24 9:13:20编辑过]

问题1：点击“生成图形”按钮生成图形后，再点击“生成图形2”，图形生成不了，如果先点击的是“生成图形2”能生成图形，再点击“生成图形”按钮则生成不了图形，，请问这是什么问题？（（如图一）

问题2：X抽绑定的是字符型列，动态提示中的“#XVAL”值显示的是坐标位置，而不是其值，请问这个如何处理？（如图二）

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180224121314.png

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

1、去掉这句就可以了：a.ChartArea.AxisX.ScrollBar.Visible = True

2、请仔细看2楼红字部分内容

以下是引用有点蓝在2018/2/24 14:29:00的发言：
1、去掉这句就可以了：a.ChartArea.AxisX.ScrollBar.Visible = True

2、请仔细看2楼红字部分内容

2楼用的是代码标示XY坐标数据，我现在改成的是XY都绑定了数据表列的，而且是字符型，并非日期形了。

没有办法，还是用回日期型列吧

X轴绑定的那个列，将其看成是产品，这样去看待，因为是字符型，那么我要动态显示其 “#XVAL”值应该也是显示其X轴的数据标识才对吧

主题：[求助][原创]关于图表的问题