【发布时间】:2012-04-17 08:22:58
【问题描述】:
嘿,我正在尝试像这样填充数组:
Dim tmpArray As String = ""
Do Until x = Form1.arrayCal.Length
tmpArray = tmpArray & "," & x
x += 1
Loop
tmpArray = Replace(tmpArray, ",1", "1")
Dim arrDaysInMonth As String() = {tmpArray}
Dim arrNumOfVisits As Double() = {10, 20, 30, 40, 50, 52, 20, 20, 10, 35, 3, 8, 47, 7, 2, 5, 55, 8, 0, 0 , 6, 55, 0, 2, 12, 0, 0, 21, 14, 0, 3}
Me.ChartControl1.Series.Clear()
Dim s As New DataDynamics.ActiveReports.Chart.Series()
s.Type = DataDynamics.ActiveReports.Chart.ChartType.Bar2D
s.Points.DataBindXY(arrDaysInMonth, arrNumOfVisits)
但是,我似乎不能那样做。这样做似乎只将它放在一维数组中,而不是 {1,2,3,4,5...} 类型的数组因为它需要在里面。
任何帮助都会很棒!
大卫
【问题讨论】:
-
嗯,你这里没有 any 数组...?
-
Dim arrDaysInMonth As String() 我猜应该是一个数组
-
更正了。它应该是一个字符串。但同样的情况仍然存在。
-
看
String.Join()方法轻松创建“1,2,3..”形式的字符串数组。 -
请更清楚您最终需要拥有什么。你需要一个带有逗号分隔值的字符串,你需要一个字符串数组还是你需要别的东西?