此主题相关图片如下：qq图片20160530115759.png
例要计算2016年的达成率，用2016年行的量产值/目标值，利用绘制单元格计算百分比，可下面自己写的代码不对，计算了每一行的达成率都有值了，需要按不同的年度分，请教各位老师代码要怎么改？
If e.Col.Name = "1月" Then '如果正在绘制的是密码列
Dim ia1 As Double
Dim ia2 As Double
Dim ia3 As Double
Dim dr1 As DataRow
Dim dr2 As DataRow
dr1 = DataTables("开模总分析").find("项目 = '量产模' And 年份 = '2016'")
dr2 = DataTables("开模总分析").find("项目 = '目标' And 年份 = '2016'")
ia3 = round2(dr1("1月")/dr2("1月"),4)
'MessageBox.Show(dr("1月"))
'ia1 = DataTables("开模总分析").Compute("sum(1月)","项目 = '量产模' and 年份 = '" & e.Row("年份") & "'")
'ia2 = DataTables("开模总分析").Compute("sum(1月)","项目 = '目标' and 年份 = '" & e.Row("年份") & "'")
If e.Row("项目") = "达成率" Then
If dr2("1月") < 0.0001 Then
e.text = "0.00%"
Else
e.Text = ia3 * 100 & "%"
End If
End If
End If
下面是想要的效果
此主题相关图片如下：222.png
加好友 
发短信
Post By：2016/5/30 12:23:00 [只看该作者]
