[求助]图表中数据值在鼠标指针定位时显示值是能否将日期格式的时分秒去除？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图表中数据值在鼠标指针定位时显示值是能否将日期格式的时分秒去除？

共有3038人关注过本帖树形打印复制链接主题：[求助]图表中数据值在鼠标指针定位时显示值是能否将日期格式的时分秒去除？

happy_gile

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

等级：小狐帖子：348 积分：3553 威望：0 精华：0 注册：2015/8/16 19:06:00

[求助]图表中数据值在鼠标指针定位时显示值是能否将日期格式的时分秒去除？ 发帖心情

Post By：2016/4/21 8:13:00 [显示全部帖子]

此主题相关图片如下：未命名.bmp

如何设置才可以在鼠标定位时显示“日期：2016-2-5 销量：857”

happy_gile

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

等级：小狐帖子：348 积分：3553 威望：0 精华：0 注册：2015/8/16 19:06:00

Post By：2016/4/21 8:59:00 [显示全部帖子]

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

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

Dim t As Table = Tables("商品日销售汇总_Table1") '定义一个变量t引用数据表

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

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

Chart.AxisX.DateType = True 'X轴是日期型

Chart.AxisX.AnnoFormatString = "yyyy-MM-dd" '设置X轴格式

'Chart.AxisX.Major = 1 '逐个显示

'Chart.AxisX.MinorTick = False '逐个显示

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

Series.TooltipText = "日期: {#XVAL},销量: {#YVAL}"

Series.Length = t.Rows.Count '图系的数据点数等于表的行数

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

Series.X(i) = t.Rows(i)("销售日期") '指定水平坐标

Series.Y(i) = t.Rows(i)("销售数量") '指定垂直坐标

是这样吗？可还是显示为2016-2-5 0:00:00

happy_gile

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

等级：小狐帖子：348 积分：3553 威望：0 精华：0 注册：2015/8/16 19:06:00

Post By：2016/4/21 9:59:00 [显示全部帖子]

以下是引用Hyphen在2016/4/21 9:00:00的发言：
Series.X(i) = format(t.Rows(i)("销售日期"),"yyyy-MM-dd") '指定水平坐标

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

主题：[求助]图表中数据值在鼠标指针定位时显示值是能否将日期格式的时分秒去除？