2014-03-07 58 views
0

我在一个图表中有几个系列,我想让X轴在夜间的00:00每天显示,如下面的第一张图所示。在X轴上放置默认时间?

但是,当我添加一个从数据库中获取日期的系列时,它会更改为我不想要的其他时间或格式(请参见图2)。

这是我正在使用的代码。

Dim theDate As Date 
rows = dv.Table.Rows.Count 
For i As Integer = 0 To rows - 1 

    Debug.WriteLine(dv(i)(0)) 
    theDate = DateTime.ParseExact(dv(i)(0), "dd-MMM-yy HH:mm:ss.f", CultureInfo.CurrentCulture) 
    Debug.WriteLine(theDate) 

    'MsgBox(theDate.ToString("dd-MMM HH:MM", CultureInfo.InvariantCulture)) 

    With chrCurrent 
     .ChartAreas("chr" + type).AxisX.LabelStyle.Format = DateTimeIntervalType.Days 
     .ChartAreas("chr" + type).AxisX.LabelStyle.Format = "dd-MMM HH:mm" 
     .Series("ser" + type).Points.AddXY(theDate, dv(i)(1)) 

    End With 
Next 

For i As Integer = 0 To 7 'Past 7 days 
    With chrCurrent 
     .Series("serHighHighLimit").Points.AddXY((DateSerial(Now.Year, Now.Month, Now.Day - i)), (limitRedHigh)) 
Next 

PICTURE 1:

PICTURE 2:

回答

1

试试这个来设置你的X轴最小值。你可能想把它设置为你的时间系列的小时,分​​和秒的最短日期剥离

.ChartAreas("chr" + type).AxisX.Minimum = #2/27/2014 00:00:0# 
+0

你是我的英雄!谢谢。 – Lime3003