vb用mschart畫雷達圖，填了16列數，出來的圖是17個，多一個空列。怎么去掉空列，下面是我寫的原代碼
strSQL = "select * from 全省風向頻率月或年 where 站號=" + Zcode.Text + " and 月或年='年'"
myreader = obj.ExecReaderSql(strSQL)
If myreader.Read = False Then
obj.Close()
MsgBox("無此站資料，請核查站號！")
Exit Sub
End If
For i = 2 To 17
c(i - 2) = myreader(i)
Next
d(0) = "N"
d(1) = "NNE"
d(2) = "NE"
d(3) = "ENE"
d(4) = "E"
d(5) = "ESE"
d(6) = "SE"
d(7) = "SSE"
d(8) = "S"
d(9) = "SSW"
d(10) = "SW"
d(11) = "WSW"
d(12) = "W"
d(13) = "WNW"
d(14) = "NW"
d(15) = "NNW"
MSchart2.Series.Clear()
MSchart2.Series.Add(0)
MSchart2.Series(0).Points.DataBindXY(d, c) '插入xy值
MSchart2.ChartAreas(0).AxisX.MajorTickMark.Enabled = True 'x軸主刻度線
MSchart2.ChartAreas(0).AxisX.Interval =1 '設定間隔
MSchart2.Width = 250
MSchart2.Height = 250
MSchart2.Series(0).ChartType = SeriesChartType.Radar '設定圖型別
MSchart2.Series(0).IsValueShownAsLabel = False '是否顯示點標簽
MSchart2.Series(0).IsVisibleInLegend = False '是否顯示圖例
'MSchart2.ChartAreas(0).AxisX.MajorGrid.Enabled = False
MSchart2.ChartAreas(0).AxisY.MajorGrid.Enabled = True
MSchart2.ChartAreas(0).AxisY.LabelAutoFitMaxFontSize = 8
MSchart2.ChartAreas(0).AxisX.LabelAutoFitMinFontSize = 6
MSchart2.ChartAreas(0).AxisX.IntervalOffset = False
MSchart2.ChartAreas(0).AxisX.Maximum = 15.9
MSchart2.ChartAreas(0).AxisX.LineColor = Color.Black
'MSChart1.Legends(0).Docking = Docking.Bottom '圖例在圖上顯示
'MSChart1.Legends(0).Alignment = StringAlignment.Center
'MSChart1.Series(0).YAxisType = AxisType.Primary
MSchart2.Titles.Add("年")
obj.Close()
uj5u.com熱心網友回復：
自己頂一下，謝謝！uj5u.com熱心網友回復：
發現，我點了16個點，但是出來的points.count為17個，這是什么個情況？uj5u.com熱心網友回復：
http://download.csdn.net/detail/veron_04/1483925uj5u.com熱心網友回復：
我想繪雷達圖，但是莫名的多了一個點。uj5u.com熱心網友回復：
MSChart 是根據你陣列的長度繪圖的，它無法判斷哪些元素有效。試試用 Redim Preserve 陳述句截短你的陣列。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/128882.html
標籤：多媒體
上一篇：VB隨機檔案存取記錄數量