| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 统计代码报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76258) |
| -- 作者：一笑 -- 发布时间：2015/10/25 19:27:00 -- 统计代码报错 统计出事件名称后想统计对于名称的次数，报错，蓝色代码有何问题吗？谢谢 Dim tbl As DataTable = DataTables("事件汇总") Dim lst As List(Of String) = tbl.GetValues("事件名称", filter & " And 性质 = \'轻度\'") For i As Integer = 0 To lst.count-1 Dim lst1 As List(Of Integer) = tbl.Compute("Sum(次数)",filter & "and [事件名称] = \'" & lst(i) & "\'") Next |
| -- 作者：y2287958 -- 发布时间：2015/10/25 20:07:00 -- Compute得到的是值而不是集合 |
| -- 作者：Hyphen -- 发布时间：2015/10/26 8:52:00 -- Compute用法 http://www.foxtable.com/help/topics/0393.htm
|
| -- 作者：Hyphen -- 发布时间：2015/10/26 8:53:00 -- Dim lst1 As List(Of Integer) For i As Integer = 0 To lst.count-1 lst1.Add( tbl.Compute("Sum(次数)",filter & "and [事件名称] = \'" & lst(i) & "\'")) Next |
| -- 作者：大红袍 -- 发布时间：2015/10/26 9:06:00 -- Dim cs As Integer = tbl.Compute("Sum(次数)",filter & " and [事件名称] = \'" & lst(i) & "\'") [此贴子已经被作者于2015/10/26 9:05:59编辑过]
|
| -- 作者：一笑 -- 发布时间：2015/10/26 10:39:00 -- 想跳过绑定表生成图表，报错（可能是蓝色代码），求解，谢谢 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Dim tbl As DataTable = DataTables("事件汇总") Dim lst As List(Of String) = tbl.GetValues("事件名称", filter & " And 性质 = \'轻度\'") \'获得名称集合 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = lst.Count \'设置图系的长度 For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置 Series.X(i) = i \'指定水平坐标 Series.Y(i) = tbl.Compute("Sum(次数)",filter & " and [事件名称] = \'" & lst(i) & "\'") \'指定垂直坐标 Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示 Next |
| -- 作者：大红袍 -- 发布时间：2015/10/26 11:43:00 -- 改成
Series.Y(i) = val(tbl.Compute("Sum(次数)",filter & " and [事件名称] = \'" & lst(i) & "\'")) |