{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang2052\f0\fs18\'cf\'ee\'c4\'bf\'ca\'c2\'bc\'fe\par
\par
\'bc\'c6\'bb\'ae\'b9\'dc\'c0\'ed\par
\par
\'b1\'ed\'ca\'c2\'bc\'fe\par
\par
\cf2\'ca\'be\'c0\'fd\'d2\'bb_DrawCell\par
\par
\cf3 If e.Col.Name = "\'b5\'da\'b6\'fe\'c1\'d0" Then\par
e.Chart.AddValues(e.Row("\'b5\'da\'d2\'bb\'c1\'d0").Split(","))\par
e.Chart.Space = 2 '\'c9\'e8\'d6\'c3\'cd\'bc\'b1\'ed\'b1\'df\'be\'e0\par
e.Chart.SeriesColor = Color.Gray '\'c9\'e8\'d6\'c3\'cf\'df\'cc\'f5\'d1\'d5\'c9\'ab\par
e.Chart.ShowHigh = True '\'b1\'ea\'bc\'c7\'d7\'ee\'b4\'f3\'d6\'b5\par
e.Chart.HighMarkerColor = Color.Red '\'c9\'e8\'d6\'c3\'d7\'ee\'b4\'f3\'d6\'b5\'b1\'ea\'bc\'c7\'d1\'d5\'c9\'ab\par
e.Chart.ShowLow= True '\'b1\'ea\'bc\'c7\'d7\'ee\'d0\'a1\'d6\'b5\par
e.Chart.LowMarkerColor = Color.Green '\'c9\'e8\'d6\'c3\'d7\'ee\'d0\'a1\'d6\'b5\'b1\'ea\'bc\'c7\'d1\'d5\'c9\'ab\par
e.DrawChart()\par
End If\par
\par
\cf2\'ca\'be\'c0\'fd\'b6\'fe_DrawCell\par
\par
\cf3 If e.Col.Name = "\'d7\'df\'ca\'c6" Then\par
Dim cns() As String = \{"\'d2\'bb\'d4\'c2","\'b6\'fe\'d4\'c2","\'c8\'fd\'d4\'c2","\'cb\'c4\'d4\'c2","\'ce\'e5\'d4\'c2","\'c1\'f9\'d4\'c2","\'c6\'df\'d4\'c2","\'b0\'cb\'d4\'c2","\'be\'c5\'d4\'c2","\'ca\'ae\'d4\'c2","\'ca\'ae\'d2\'bb\'d4\'c2","\'ca\'ae\'b6\'fe\'d4\'c2"\}\par
For Each cn As String In cns\par
e.Chart.AddValues(e.Row(cn))\par
Next\par
e.Chart.ChartType = 1 '\'ca\'b9\'d3\'c3\'d6\'f9\'d7\'b4\'cd\'bc\par
e.Chart.SeriesColor = Color.CadetBlue '\'c9\'e8\'d6\'c3\'cd\'bc\'b1\'ed\'d1\'d5\'c9\'ab\par
e.DrawChart()\par
End If\par
\par
\cf2\'cf\'ee\'c4\'bf_DrawCell\par
\par
\cf3 If e.Col.Name = "\'cd\'ea\'b3\'c9\'bd\'f8\'b6\'c8" Then\par
Dim crs As List(of DataRow) = e.Row.DataRow.GetChildRows("\'bd\'f8\'b6\'c8")\par
Dim mb As Double = e.Row("\'c4\'bf\'b1\'ea") '\'bb\'f1\'c8\'a1\'c4\'bf\'b1\'ea\'d6\'b5\par
Dim sum As Double '\'d3\'c3\'d3\'da\'c0\'db\'bc\'d3\'cd\'ea\'b3\'c9\'c1\'bf\par
For Each cr As DataRow In crs '\'cc\'ed\'bc\'d3\'cd\'bc\'b1\'ed\'ca\'fd\'be\'dd\par
sum = sum + cr("\'cd\'ea\'b3\'c9\'c1\'bf")\par
e.Chart.AddValues(sum)\par
Next\par
e.Chart.AddValues(mb) '\'cf\'f2\'cd\'bc\'b1\'ed\'d4\'f6\'bc\'d3\'c4\'bf\'b1\'ea\'d6\'b5\par
e.Chart.ShowLast = True '\'d2\'aa\'b1\'ea\'bc\'c7\'d7\'ee\'ba\'f3\'d2\'bb\'b8\'f6\'ca\'fd\'be\'dd,\'d2\'b2\'be\'cd\'ca\'c7\'c4\'bf\'b1\'ea\'d6\'b5\par
If sum < mb Then '\'c8\'e7\'b9\'fb\'c3\'bb\'d3\'d0\'cd\'ea\'b3\'c9\'c8\'ce\'ce\'f1,\'c4\'bf\'b1\'ea\'d6\'b5\'d3\'c3\'ba\'ec\'c9\'ab\'b1\'ed\'ca\'be\par
e.Chart.LastMarkerColor = Color.Red\par
ElseIf sum > mb * 1.1 Then '\'c8\'e7\'b9\'fb\'b3\'ac\'b6\'ee10%\'cd\'ea\'b3\'c9\'c8\'ce\'ce\'f1,\'c4\'bf\'b1\'ea\'d6\'b5\'d3\'c3\'bd\'f0\'c9\'ab\'b1\'ed\'ca\'be\par
e.Chart.LastMarkerColor = Color.Gold\par
Else '\'c8\'e7\'b9\'fb\'d2\'d1\'be\'ad\'cd\'ea\'b3\'c9\'c8\'ce\'ce\'f1,\'b5\'ab\'ce\'b4\'b3\'ac\'b6\'ee10%\'cd\'ea\'b3\'c9,\'c4\'bf\'b1\'ea\'d6\'b5\'d3\'c3\'c2\'cc\'c9\'ab\'b1\'ed\'ca\'be\par
e.Chart.LastMarkerColor = Color.Green\par
End If\par
e.Chart.ChartType = 1 '\'ca\'b9\'d3\'c3\'d6\'f9\'d7\'b4\'cd\'bc\par
e.DrawChart()\par
End If\par
\par
\cf1\'b4\'b0\'bf\'da\'b1\'ed\'ca\'c2\'bc\'fe\par
\par
\'b4\'b0\'bf\'da\'d3\'eb\'bf\'d8\'bc\'fe\'ca\'c2\'bc\'fe\par
\par
\'d7\'d4\'b6\'a8\'d2\'e5\'ba\'af\'ca\'fd\par
\par
\'c8\'ab\'be\'d6\'b4\'fa\'c2\'eb\par
\par
\'b2\'cb\'b5\'a5\'ca\'c2\'bc\'fe\par
\par
\cf0\par
}
加好友 
发短信
Post By：2022/3/27 7:21:00 [显示全部帖子]
