主题：模仿没模仿成功，请老师帮忙指导一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条形图表的3d效果.table

1、图表至少两行才能正常生成的。

 

2、代码

 

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0
Series.X(i) = i
Series.Y(i) = i
i += 1
For Each r As Row In Tables("完成比例")
   
    Series.X(i) = i
    Series.Y(i) = r("完成评估数量")
    'Chart.AxisX.SetValueLabel(i, "完成")
    i += 1
Next
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"
Series.X(i) = i
Series.Y(i) = i
i+=1
For Each r As Row In Tables("完成比例")
    Series.X(i) = i
    Series.Y(i) = r("未完成评估数量")
    Chart.AxisX.SetValueLabel(i,r("上级"))
    i=i+1
Next

Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South

效果出来了，但为啥零0坐标那么远，能近一点吗？还有就是X轴能不能没有那么线段？能在二个上面标注数量吗？

此主题相关图片如下：1.png

能做出来这样的效果吗？

 

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0

For Each r As Row In Tables("完成比例")
   
    Series.X(i) = i
    Series.Y(i) = r("完成评估数量")
    'Chart.AxisX.SetValueLabel(i, "完成")
    i += 1
Next
series.DataLabelText = "{#YVAL}"
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"

For Each r As Row In Tables("完成比例")
    Series.X(i) = i
    Series.Y(i) = r("未完成评估数量")
    Chart.AxisX.SetValueLabel(i,r("上级"))
    i=i+1
Next
series.DataLabelText = "{#YVAL}"

Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South

 

 

不可以，没办法。

此主题相关图片如下：1.png

第二个效果没出来
Y轴能变成整数吗？

看看

 

http://www.foxtable.com/webhelp/scr/1018.htm

 

http://www.foxtable.com/webhelp/scr/1020.htm

 

http://www.foxtable.com/webhelp/scr/1021.htm

 

 

甜老师，按你的代码，第二条不显示了，不知道啥原因

 

多于1行表数据，才能正常显示的。你增加多几行数据。