- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新手求一段代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91193)
-- 发布时间：2016/10/2 15:37:00
-- [求助]新手求一段代码
在窗口—”沥青混合料试验结果“中，有个图表控件，如何使“筛孔尺寸”和填入的“筛孔实测值，在该图表控件中体现成曲线？就是边输入筛孔实测值，曲线就可以画出来
-- 发布时间：2016/10/2 15:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:试验室管理系统 可改.table |
-- 发布时间：2016/10/3 9:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目302.table |
-- 发布时间：2016/10/4 22:52:00
--
这个代码和DATACOLCHANGING的代码是冲突的么？现在筛孔列输什么数值都是提示不对的。
而且我还有一个问题，这个可以做到在图表中体现筛孔尺寸？就是37.5，31.5，26.5，19，16，13.2等等的那一列是横坐标，输入的数值是纵坐标。
感谢为我解答的大神！
-- 发布时间：2016/10/5 7:22:00
--
生成图表的代码改为：
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Dim r As Row =Tables("沥青混合料试验结果").Current
If r Is Nothing Then
Return
End If
Dim nms() As String = {"37.5mm","31.5mm","26.5mm","19mm","16mm","13.2mm","9.5mm","4.75mm","2.36mm","1.18mm","0.6mm","0.3mm","0.15mm","0.075mm"}
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 14 \'新增图系包括14个数据点
For i As Integer = 0 To 13 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = Tables("沥青混合料试验结果").Current("筛孔" & (i+1))
\'Chart.AxisX.SetValueLabel(i, nms(i)) \'指定字符表示
Next
\'Chart.AxisX.AnnoWithLabels = True \'启用字符标示
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Dim r As Row =Tables("沥青混合料试验结果").Current
If r Is Nothing Then
Return
End If
Dim nms() As String = {"37.5mm","31.5mm","26.5mm","19mm","16mm","13.2mm","9.5mm","4.75mm","2.36mm","1.18mm","0.6mm","0.3mm","0.15mm","0.075mm"}
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 14 \'新增图系包括14个数据点
For i As Integer = 0 To 13 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = Tables("沥青混合料试验结果").Current("筛孔" & (i+1))
\'Chart.AxisX.SetValueLabel(i, nms(i)) \'指定字符表示
Next
\'Chart.AxisX.AnnoWithLabels = True \'启用字符标示
这样就筛选就不会出错了。
至于横坐标和纵坐标，你看看帮助中生成图表这一章，再看看上面的代码，想学习，再尝试，不要完全靠别人，这是最好的学习方式。
最后搞不定，再提问不迟。