专家坐堂-[求助]导出代码查看和编辑软件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

{\\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

}