主题：如何标注数据表中的值进行标注，求大神帮忙

 

如果我想把机型数据总表里所有器件代码为L03且C01_10、 C02_10、 C03_10、 C04_10、 C05_10、 C06_10里值小于60的都标注成红底黑字，应该如何编程

 

 

此主题相关图片如下：图片2.png

新手建议先按部就班学习一下帮助

 

Dim drs As List(Of DataRow)

drs = DataTables("机型数据总表").Select("[器件代码] = 'L03' And [器件名称]= 'LCM_IC'")

For Each dr As DataRow In drs

    e.style=risk

Next

 

报错

先按顺序学习事件编程吧，如果有困难，可以看一下视频教程：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=66444

 

DrawCell事件：
 
if e.row("器件代码")= 'L03' OrElse  e.Row("器件名称")= "LCM_IC" then
    e.style="risk"
End If

都说了,新手先按部就班学习一下帮助啦.  

版主：

请问一下，如果我想把筛选出来的结果生成柱状图如何操作，

我看帮助文档里有个现成的，但他的表是已定做好了的，而我是想把筛选的结果做为一个表输出柱状图，望指教

 

采用数据绑定的方式。
新建一个窗口，在窗口中分别插入一个图表和一个按钮，将按钮的Click事件代码设置为：

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col in t.Cols
    If c.Name <> "产品" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.X.DataField = "产品" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
    End If
Next
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

参考：

http://www.foxtable.com/help/topics/0984.htm

 

chart.DataFilter = Tables("统计表1") .Filter

不太懂，主要是看不明白，不知道怎么改，没有一点概念，还是静下心来好好学学吧，

明白了，好像一下子又懂了，谢谢了