- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求数组平均值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115590)
-- 发布时间：2018/3/9 17:33:00
-- 求数组平均值
Dim s1 As String = ar2(0)
Dim d1 As Double = s1.replace(" ", "")
r("CAP") = d1*10^12
DataTables("CDF容量导入").save()
Dim Avg As Double = Tables("CDF容量导入").Compute("Avg(CAP)")
msgbox(Avg)
老师，有一列CAP,怎么求平均值？我上面的出来 0
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (3).txt |
[此贴子已经被作者于2018/3/9 17:35:37编辑过]
-- 发布时间：2018/3/9 18:21:00
--
你是说这个计算出错？
Dim Avg As Double = Tables("CDF容量导入").Compute("Avg(CAP)")
单独执行这句代码，有没有问题？你要有数据才能计算的。
-- 发布时间：2018/3/12 13:54:00
--
此主题相关图片如下：qq截图20180312135310.jpg
老师有数据，单独执行后还是0啊
-- 发布时间：2018/3/12 15:06:00
--
字符列，是不能compute计算的，请改成数值列。
-- 发布时间：2018/3/12 15:47:00
--
老师，测试了下要是数值型的就可以了
Dim s1 As String = ar2(0)
Dim d1 As Double = s1.replace(" ", "")
Dim d3 As Double
Double.TryParse(d1, d3)
r("CAPNO")= d3
老师现在我就想新增了一列，属性数值型，填充时顺带将d1的字符转换成数值然后存在CAPNO列中
但现在如上执行后CAPNO列还是全部显示0，这是为什么？
S1的值是 +3.33852E-10
[此贴子已经被作者于2018/3/12 15:51:48编辑过]
-- 发布时间：2018/3/12 15:57:00
--
最大小数位数，改成15或者更大的值
http://www.foxtable.com/webhelp/scr/0050.htm
Dim s1 As String = "+3.33852E -10"
s1 = s1.replace(" ", "")
Dim d3 As Double
If Double.TryParse(s1, d3) Then
msgbox(d3)
Tables("表A").Current("第三列") = d3
End If
-- 发布时间：2018/3/12 16:31:00
--
老师，已解决，之前得到的就是数值，因为列属性小数位默认4位所以显示0
-- 发布时间：2018/3/12 17:47:00
--
Dim val3 As String
Dim cmd3 As New SQLCommand
cmd3.C
cmd3.CommandText ="(S elect [电容量单位] from {项目测试数据看板} where 项目编号=\'" & bh & "\' )"
val3 = cmd3.ExecuteScalar()
Select Case val3
Case val3 <>Nothing
...
Case val3 = Nothing
...
End Select
老师，求出来的val3判断空值好像不能用nothing,如何解决？
-- 发布时间：2018/3/12 17:52:00
--
val3 = cmd3.ExecuteScalar()
If val3 = DBNull.Value Then
msgbox(2)
Else
msgbox(1)
End If
-- 发布时间：2018/3/12 18:06:00
--
val3的值结果应为uF这种string字符型或者是空值
此主题相关图片如下：qq截图2.jpg
老师现在报错