帮助中的单元格图表中，项目的Drawcell事件
If e.Col.Name = "完成进度" Then
Dim crs As List(of DataRow) = e.Row.DataRow.GetChildRows("进度")
Dim mb As Double = e.Row("目标") '获取目标值
e.Chart.AddValues(mb) '向图表增加目标值
Dim sum As Double '用于累加完成量
For Each cr As DataRow In crs '添加图表数据
sum = sum + cr("完成量")
e.Chart.AddValues(sum) '------这个数值不论[进度]表的行如何上移下移，计算的结果不变，这就表示crs本身是有排序的，那么这个排序是按什么排序的呢？
Next
－－－－－－哦，是使用的后台的_Identify
-----所以，严格来说，可能使用Dim crs As List(of DataRow) = datatables("进度").sel ect("项目 = '" & e.row("项目") & "'","月份“)更严谨一些
[此贴子已经被作者于2022/2/5 22:57:34编辑过]
加好友 
发短信
Post By：2022/2/5 22:45:00 [只看该作者]
