如何根据以下代码修改
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Dim t As Table = Tables("总计") '定义一个变量t引用数据表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
Series.MarkShape= MarkShapeEnum.Dot '指定数据标记为圆点.
Series.MarkColor = Color.Red '指定数据标记的颜色
Series.LinePattern = LinePatternEnum.None '不显示数据点之间的
For i As Integer = 1 To t.Rows.Count '指定每个数据点的位置
Series.X(i) = t.Rows(i-1)("cj") '指定水平坐标
Series.Y(i) = t.Rows(i-1)("df") '指定垂直坐标
Next
Chart.PrintWidth = 280
Chart.PrintHeight = 160
Chart.FooterText ="散点图对比"
'Chart.BarClusterWidth = 60
Chart.SaveImage(dlg.SelectedPath & "\cf.wmf")
End If
加好友 
发短信
Post By：2015/7/20 12:45:00 [显示全部帖子]
