老师我做了一个按钮，生成统计表如下，发布后单击按钮，生成统计表没问题，但没有执行绘图操作，为什么？
Dim dtb As New DataTableBuilder("捷径优化分析")
dtb.AddDef("kmitemid", Gettype(String), 32)
dtb.AddDef("结果", Gettype(String), 32)
dtb.AddDef("过程", GetType(String), 32)
dtb.AddDef("排序", GetType(Integer))
For Each v As String In DataTables("mframe").GetValues("lage")
dtb.AddDef(v, Gettype(Double))
Next
dtb.AddDef("走势", GetType(String), 32) ’这个是用来绘图的单元格
dtb.Build()
For Each v As String In DataTables("mframe").GetValues("kmitemid")
Dim dr1 As DataRow = DataTables("捷径优化分析").AddNew()
dr1("kmitemid") = v
For Each dr2 As DataRow In DataTables("mframe").Select("kmitemid = '" & v & "'")
dr1("结果") = dr2("fruit")
dr1("过程") = dr2("work")
dr1("排序") = dr2("orderno")
dr1(dr2("lage")) = dr2("svalue")
Next
Next
Tables("捷径优化分析").Sort = "排序 DESC"
Tables("捷径优化分析").AutoSizeCols()
'Tables("捷径优化分析").SetColVisibleWidth("走势|290")
MainTable = Tables("捷径优化分析")
全局表事件drawcell代码：
Select Case e.Table.Name
Case "捷径优化分析"
If e.Col.Name = "走势" Then
For Each v As String In DataTables("mframe").GetValues("lage")
e.Chart.AddValues(e.Row(v))
Next
e.Chart.ChartType = 1
e.Chart.SeriesColor = Color.CadetBlue
e.Chart.ShowHigh = True
e.Chart.HighMarkerColor = Color.Orange
e.DrawChart()
End If
End Select
加好友 
发短信
Post By：2022/10/21 10:16:00 [只看该作者]
