MSChart仅显示插入的日期，没有空格
几天来，我一直在寻找如何使用MS Chart修复此问题的方法，不幸的是，到目前为止，我发现的所有内容都无济于事。
我有一个水平条形图，正在特定时间范围内加载销售数据。使用“日期维度”表已将该数据“按摩”到我想要的方式，以便在没有数据的情况下可以将零推入。
这意味着我的数据无论何时，每天，每周，每月或每年，始终始终具有所要求的确切点数。您要求7天获得7行，您要求12周获得12行，要求3个月获得3行。始终如此（现在每年可能只是时间的开始，所以我们不再赘述。）
Now Daily可以正常工作，但是当我切换到其他模式时，图表完全忽略了我给它指定了非常特定数量的点的事实，而是将日历中的每个日期都放在了数据点之间。
正如我说过的，我尝试了各种解决方案，但它们会使情况变得更糟或导致错误。
- 起初我是对图表进行数据绑定，但后来切换为手动插入点
- 我已将IsXValueIndexed设置为true，这只是导致图表完全不显示任何值...
- 添加AlignDataPointsByAxisLabel会导致需要全部非空且唯一的错误
- IntervalOffset值似乎无济于事
Private Sub LoadChart()
Dim oDT As New DataTable
Dim sqlCmd As New SqlCommand
Dim sSQLDateCTE As String = "WITH Date_CTE as ( " & _
"SELECT [Date] as SaleDate " & _
"FROM [DateDimension] "
Dim sWHEREDateCTE As String = "WHERE [Date] BETWEEN DATEADD({0},-{1},GETDATE()) AND GETDATE() "
Dim sSQLSUM As String = "), SUM_CTE as ( " & _
"SELECT F01 as UPCCode, F254 as SaleDate, SUM(F64) as UnitsSold " & _
"FROM {0} " & _
"WHERE F1034 = 3 AND F64 <> 0 AND F01 = @UPCCode " & _
"AND F254 IN (SELECT saledate FROM Date_CTE) " & _
"GROUP BY F01,F254) " & _
"Select DC.SaleDate ,ISNULL(SC.UnitsSold,0) as UnitsSold " & _
"FROM Date_CTE as DC " & _
"LEFT OUTER JOIN SUM_CTE as SC " & _
"ON SC.SaleDate = DC.SaleDate " & _
"ORDER BY DC.SaleDate ASC "
Dim sSQL As String = ""
Try
Dim PeriodRow As DataRow = oAppEnv.dtPeriods.Select(String.Format("DPPeriodID = {0}", cboPeriods.SelectedValue)).FirstOrDefault
Dim DurationRow As DataRow = oAppEnv.dtDurations.Select(String.Format("DDDurationID = '{0}'", cboDuration.SelectedValue)).FirstOrDefault
Select Case PeriodRow.Item("DPPeriodAbbrev")
Case "D"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "DD", DurationRow.Item("DDDurationLength"))
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_D")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "W"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "WW", DurationRow.Item("DDDurationLength")) & " AND Weekday = 1 "
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_W")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "M"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "MM", DurationRow.Item("DDDurationLength")) & " AND [DAY] = DATEPART(Day,getdate()) "
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_M")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "Y"
'????
End Select
sqlCmd.CommandText = sSQL
sqlCmd.Parameters.AddWithValue("@UPCCode", sUPCCode)
oDT = oAppEnv.oLogiDM.GetSQLData(sqlCmd)
ctSalesData.ChartAreas.Clear()
ctSalesData.ChartAreas.Add("Sales")
ctSalesData.Series.Clear()
ctSalesData.Series.Add("Sales")
ctSalesData.Series("Sales").ChartType = Charting.SeriesChartType.Bar
'ctSalesData.Series(0).IsXValueIndexed = True
'ctSalesData.ChartAreas(0).AxisX.IntervalOffsetType = Charting.DateTimeIntervalType.Days
'ctSalesData.ChartAreas(0).AxisX.IntervalOffset = -1
If oDT IsNot Nothing Then
'//Get the Date range.
Dim oSortDV As DataView = oDT.DefaultView
oSortDV.Sort = "UnitsSold DESC"
'ctSalesData.DataSource = oDT
For Each row In oDT.Rows
ctSalesData.Series(0).Points.AddXY(row.item("SaleDate"), row.item("UnitsSold"))
Next
'ctSalesData.AlignDataPointsByAxisLabel()
ctSalesData.Series(0).CustomProperties = "PixelPointWidth = 15"
ctSalesData.Series(0).IsValueShownAsLabel = True
Dim MinDate As Date = oDT.Rows(0).Item("SaleDate")
Dim Maxdate As Date = oDT.Rows(oDT.Rows.Count - 1).Item("SaleDate")
ctSalesData.ChartAreas(0).AxisX.Minimum = MinDate.ToOADate
ctSalesData.ChartAreas(0).AxisX.Maximum = Maxdate.ToOADate
If oDT.Rows.Count > 14 Then
Dim ZoomDate As Date = oDT.Rows(14).Item("SaleDate")
ctSalesData.ChartAreas(0).AxisX.ScaleView.Zoom(MinDate.ToOADate, ZoomDate.ToOADate)
End If
ctSalesData.Series(0).XValueType = Charting.ChartValueType.Date
ctSalesData.ChartAreas(0).AxisX.Interval = 1
ctSalesData.ChartAreas(0).AxisY.Minimum = 0
ctSalesData.ChartAreas(0).AxisY.Maximum = Math.Ceiling(oSortDV(0).Item("UnitsSold") / 10) * 10
If ctSalesData.ChartAreas(0).AxisY.Maximum = oSortDV(0).Item("UnitsSold") Then
ctSalesData.ChartAreas(0).AxisY.Maximum += 10
End If
ctSalesData.ChartAreas(0).CursorX.AutoScroll = True
ctSalesData.ChartAreas(0).AxisX.ScaleView.SizeType = Charting.DateTimeIntervalType.Number
ctSalesData.ChartAreas(0).AxisX.ScrollBar.ButtonStyle = Charting.ScrollBarButtonStyles.SmallScroll
ctSalesData.ChartAreas(0).AxisX.ScaleView.SmallScrollSize = 20
'ctSalesData.Series(0).XValueMember = "SaleDate"
'ctSalesData.Series(0).YValueMembers = "UnitsSold"
ctSalesData.ChartAreas(0).AxisX.ScrollBar.IsPositionedInside = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
- 还尝试将点更改为通用计数器
Dim iCnt As Integer = 0
For Each row In oDT.Rows
ctSalesData.Series(0).Points.AddXY(iCnt, row.item("UnitsSold"))
ctSalesData.Series(0).Points(iCnt).AxisLabel = row.item("SaleDate")
iCnt += 1
Next
但是我认为这只是打破了我的缩放代码，因为它是基于日期的。
所以；我该如何摆脱这些空白的空间浪费，只显示我插入的数据点？
1 个答案:
答案 0 :(得分：0)
因此，对于正在/曾经/将要遇到相同问题的任何人，到目前为止，我能够解决这种烦恼的唯一方法是执行我之前提到的通用计数器操作，但是要重做我的缩放代码。
这是任何有兴趣的人的重做代码。
Private Sub LoadChart()
Dim oDT As New DataTable
Dim sqlCmd As New SqlCommand
Dim sSQLDateCTE As String = "WITH Date_CTE as ( " & _
"SELECT [Date] as SaleDate " & _
"FROM [DateDimension] "
Dim sWHEREDateCTE As String = "WHERE [Date] BETWEEN DATEADD({0},-{1},GETDATE()) AND GETDATE() "
Dim sSQLSUM As String = "), SUM_CTE as ( " & _
"SELECT F01 as UPCCode, F254 as SaleDate, SUM(F64) as UnitsSold " & _
"FROM {0} " & _
"WHERE F1034 = 3 AND F64 <> 0 AND F01 = @UPCCode " & _
"AND F254 IN (SELECT saledate FROM Date_CTE) " & _
"GROUP BY F01,F254) " & _
"Select DC.SaleDate ,ISNULL(SC.UnitsSold,0) as UnitsSold " & _
"FROM Date_CTE as DC " & _
"LEFT OUTER JOIN SUM_CTE as SC " & _
"ON SC.SaleDate = DC.SaleDate " & _
"ORDER BY DC.SaleDate ASC "
Dim sSQL As String = ""
Try
Dim PeriodRow As DataRow = oAppEnv.dtPeriods.Select(String.Format("DPPeriodID = {0}", cboPeriods.SelectedValue)).FirstOrDefault
Dim DurationRow As DataRow = oAppEnv.dtDurations.Select(String.Format("DDDurationID = '{0}'", cboDuration.SelectedValue)).FirstOrDefault
Select Case PeriodRow.Item("DPPeriodAbbrev")
Case "D"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "DD", DurationRow.Item("DDDurationLength"))
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_D")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "W"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "WW", DurationRow.Item("DDDurationLength")) & " AND Weekday = 1 "
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_W")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "M"
sWHEREDateCTE = String.Format(sWHEREDateCTE, "MM", DurationRow.Item("DDDurationLength")) & " AND [DAY] = DATEPART(Day,getdate()) "
sSQLSUM = String.Format(sSQLSUM, "RPT_ITM_M")
sSQL = sSQLDateCTE & sWHEREDateCTE & sSQLSUM
Case "Y"
'????
End Select
sqlCmd.CommandText = sSQL
sqlCmd.Parameters.AddWithValue("@UPCCode", sUPCCode)
oDT = oAppEnv.oLogiDM.GetSQLData(sqlCmd)
ctSalesData.ChartAreas.Clear()
ctSalesData.ChartAreas.Add("Sales")
ctSalesData.Series.Clear()
ctSalesData.Series.Add("Sales")
ctSalesData.Series("Sales").ChartType = Charting.SeriesChartType.Bar
ctSalesData.Series(0).IsXValueIndexed = True
'ctSalesData.ChartAreas(0).AxisX.IntervalOffsetType = Charting.DateTimeIntervalType.Days
'ctSalesData.ChartAreas(0).AxisX.IntervalOffset = -1
If oDT IsNot Nothing Then
'//Get the highest sold item so we can set the Y axis to bigger than the biggest
Dim oSortDV As DataView = oDT.DefaultView
oSortDV.Sort = "UnitsSold DESC"
'ctSalesData.DataSource = oDT
Dim iCnt As Integer = 0
For Each row In oDT.Rows
ctSalesData.Series(0).Points.AddXY(iCnt, row.item("UnitsSold"))
ctSalesData.Series(0).Points(iCnt).AxisLabel = row.item("SaleDate")
iCnt += 1
Next
'ctSalesData.AlignDataPointsByAxisLabel()
ctSalesData.Series(0).CustomProperties = "PixelPointWidth = 15"
ctSalesData.Series(0).IsValueShownAsLabel = True
'Dim MinDate As Date = oDT.Rows(0).Item("SaleDate")
'Dim Maxdate As Date = oDT.Rows(oDT.Rows.Count - 1).Item("SaleDate")
ctSalesData.ChartAreas(0).AxisX.Minimum = 0
ctSalesData.ChartAreas(0).AxisX.Maximum = oDT.Rows.Count + 1
If oDT.Rows.Count > 21 Then
Dim ZoomDate As Date = oDT.Rows(14).Item("SaleDate")
ctSalesData.ChartAreas(0).AxisX.ScaleView.Zoom(0, 22)
End If
'ctSalesData.Series(0).XValueType = Charting.ChartValueType.Date
ctSalesData.ChartAreas(0).AxisX.Interval = 1
ctSalesData.ChartAreas(0).AxisY.Minimum = 0
ctSalesData.ChartAreas(0).AxisY.Maximum = Math.Ceiling(oSortDV(0).Item("UnitsSold") / 10) * 10
If ctSalesData.ChartAreas(0).AxisY.Maximum = oSortDV(0).Item("UnitsSold") Then
ctSalesData.ChartAreas(0).AxisY.Maximum += 10
End If
ctSalesData.ChartAreas(0).CursorX.AutoScroll = True
ctSalesData.ChartAreas(0).AxisX.ScaleView.SizeType = Charting.DateTimeIntervalType.Number
ctSalesData.ChartAreas(0).AxisX.ScrollBar.ButtonStyle = Charting.ScrollBarButtonStyles.SmallScroll
ctSalesData.ChartAreas(0).AxisX.ScaleView.SmallScrollSize = 21
''ctSalesData.Series(0).XValueMember = "SaleDate"
''ctSalesData.Series(0).YValueMembers = "UnitsSold"
ctSalesData.ChartAreas(0).AxisX.ScrollBar.IsPositionedInside = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
尽管这是一个烦人的解决方法，但仍然可以使Date方法正常工作还是很不错的。
相关问题
最新问题
- 我写了这段代码，但我无法理解我的错误
- 我无法从一个代码实例的列表中删除 None 值，但我可以在另一个实例中。为什么它适用于一个细分市场而不适用于另一个细分市场？
- 是否有可能使 loadstring 不可能等于打印？卢阿
- java中的random.expovariate()
- Appscript 通过会议在 Google 日历中发送电子邮件和创建活动
- 为什么我的 Onclick 箭头功能在 React 中不起作用？
- 在此代码中是否有使用“this”的替代方法？
- 在 SQL Server 和 PostgreSQL 上查询，我如何从第一个表获得第二个表的可视化
- 每千个数字得到
- 更新了城市边界 KML 文件的来源？