- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]折线图不显示横坐标的值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189867)
-- 发布时间：2024/1/2 8:30:00
-- [求助]折线图不显示横坐标的值
老师好！下面的代码，开始是显示过x轴坐标（日期）的，后来不显示了，是什么原因？
此主题相关图片如下：截屏图片 (2).jpg
Dim Chart1 As WinForm.Chart \'定义一个图表变量
Dim Series1 As WinForm.ChartSeries \'定义一个图系变量
Chart1 = Forms("趋势图").Controls("Chart2") \' 引用窗口中的图表
Chart1.DataSource = "趋势图_table1" \'设置绑定表
Chart1.SeriesList.Clear() \'清除图表原来的图系
Series1 = Chart1.SeriesList.Add() \'增加一个图系
Series1.X.DataField = "日期" \'X轴绑定到产品列
Series1.Y.DataField = "实际收盘价" \'Y轴绑定到数量列
Chart1.DataFilter = "日期 >= \'" & dt1 & "\' And 日期 <= \'" & dt2 & "\'"
Chart1.AxisX.DateType = True \'X轴是日期型
Chart1.AxisX.AnnoFormatString = "MM-dd" \'只显示日
Chart1.AxisX.AnnoRotation = - 45 \'X轴标示逆时针旋转45度
Series1.Text = "实际"
\'chart1.SeriesList(0).MarkSize = 0 ’不显示值
Chart1.AxisX.AnnoWithLabels = True \'启用字符标示
Chart1.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart1.LegendVisible = True \'显示图列
Chart1.LegendCompass = CompassEnum.South \'图列显示在南方(底端)
-- 发布时间：2024/1/2 9:00:00
--
试试
Dim Chart As WinForm.Chart
Chart.AxisX.ClearValueLabel
-- 发布时间：2024/1/2 9:36:00
--
运行代码没变化~
试着把bin文件夹删掉也没有变化~
此主题相关图片如下：截屏图片 (3).jpg
-- 发布时间：2024/1/2 9:45:00
--
把下面代码去掉
Chart.AxisX.DateType = True
Chart.AxisX.AnnoFormatString = "MM-dd"
Chart.AxisX.AnnoWithLabels = True
[此贴子已经被作者于2024/1/2 9:46:15编辑过]
-- 发布时间：2024/1/2 20:59:00
--
1、是不是引用的数据表来自窗口临时表的原因？因为我在同一个窗口放两个图表，另一个数据表来源自系统增加的主表，就可以显示X轴的日期~
2、但是现在又遇到一个问题，利用说明里的K线图代码，X轴的日期坐标值，为什么自动添加了数据表中没有的周六、周日？
此主题相关图片如下：截屏图片 (5).jpg
Dim Chart1 As WinForm.Chart \'定义一个图表变量
Dim Series1 As WinForm.ChartSeries \'定义一个图系变量
Dim t1 As Table = Tables("K线图") \'定义一个变量t引用数据表
Chart1 = Forms("趋势图").Controls("Chart2") \' 引用窗口中的图表
Chart1.ChartType = ChartTypeEnum.Candle \'设置图表类型
Chart1.AxisX.DateType = True \'明确指定X轴是日期型
Chart1.AxisX.AnnoFormatString = "MM-dd" \'制定日期表示格式
Chart1.AxisY.Text = "价格"
Chart1.SeriesList.Clear() \'清除图表原来的图系
Series1 = Chart1.SeriesList.Add() \'增加一个图系
Series1.LineColor = Color.Blue \'设置该图系的颜色
Chart1.DataSource = "K线图" \'绑定设置
Series1.X.DataField = "日期"
Series1.Y.DataField = "最高价"
Series1.Y1.DataField = "最低价"
Series1.Y2.DataField = "开盘价"
Series1.Y3.DataField = "收盘价"
\'用第二个图表显示成交额
Chart1.ChartType2 = ChartTypeEnum.Bar
Chart1.SeriesList2.Clear()
Series1 = Chart1.SeriesList2.Add()
Series1.FillColor = Color.LightBlue \'设置条形图的填充颜色
Series1.X.DataField = "日期"
Series1.Y.DataField = "成交量"
Chart1.AxisY2.Text = "成交量"
Chart1.AxisY2.GridMajorVisible = False \'隐藏Y2轴的网格线
-- 发布时间：2024/1/2 21:09:00
--
和这个没有关系，请上传实例测试
-- 发布时间：2024/1/3 16:30:00
--
做了个实例请蓝老师帮忙看看~
窗口中的2个图表有点问题：一个是双折线未显示，二是X坐标的值（周六、周日）不在表中，不应该显示~
-- 发布时间：2024/1/3 16:40:00
--
1、
此主题相关图片如下：1.png
2、绑定的情况下没有办法排除（周六、周日），改为遍历处理吧
-- 发布时间：2024/1/3 19:27:00
--
遍历也不行~
Dim dt1 As Date = Forms("窗口1").Controls("DateTimePicker1").Value
Dim dt2 As Date = Forms("窗口1").Controls("DateTimePicker2").Value
\'第一个图表
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = Forms("窗口1").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot \'设置图表类型
Chart.AxisX.DateType = True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "MM-dd" \'制定日期表示格式
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("日期 >= \'" & dt1 & "\' And 日期 <= \'" & dt2 & "\'")
Series.Length = drs.Count \'图系n个数据点
For i As Integer = 0 To drs.Count - 1 \'遍历所有行
Series.X(i) = drs(i)("日期") \'指定水平坐标
Series.Y(i) = drs(i)("预测") \'垂直坐标用随机数生成
Next
Series.LineColor = Color.Blue \'设置该图系的颜色
Series.MarkShape = MarkShapeEnum.Dot
Series.MarkColor = Color.Green
Series.Text = "预测"
\'第二个图表
Chart.ChartType2 = ChartTypeEnum.XYPlot
Chart.SeriesList2.Clear()
Series = Chart.SeriesList2.Add()
Series.Length = drs.Count \'图系n个数据点
For i As Integer = 0 To drs.Count - 1 \'遍历所有行
Series.X(i) = drs(i)("日期") \'指定水平坐标
Series.Y(i) = drs(i)("实际") \'垂直坐标用随机数生成
Next
Series.LineColor = Color.Red
Series.MarkShape = MarkShapeEnum.Dot
Series.MarkColor = Color.Yellow
Chart.AxisY.GridMajorVisible = False \'隐藏Y2轴的网格线
Series.Text = "实际"
\'Chart.AxisX.AnnoWithLabels = True \'启用字符标示(启用后不显示日期）
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass = CompassEnum.South \'图列显示在南方(底端)
此主题相关图片如下：截屏图片 (7).jpg