以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教求和代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99328)
--  作者：hbhb
--  发布时间：2017/4/17 14:34:00
--  请教求和代码
大师：如果表中某一列的记录有数字，有字符，汉字。如何求取该列数字之和？表达式怎么写？
--  作者：有点色
--  发布时间：2017/4/17 15:07:00
--  

用正则取出数字

 

Dim str As String = "234都123欧2"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
For i As Integer = 0 To mc.count-1
    output.show(mc(i).value)
Next

 
--  作者：hbhb
--  发布时间：2017/4/17 15:21:00
--  
谢谢！我是说取表集合时，筛选出某一列是数字的集合的表达式怎么写？
--  作者：有点色
--  发布时间：2017/4/17 15:28:00
--  

 如果用sqlSelect，可以这样写

 

Dim drs As List(Of DataRow) = DataTables("表A").sqlselect("IsNumeric(第五列)")
For Each dr As DataRow In drs
    output.show(dr("第五列"))
Next
--  作者：hbhb
--  发布时间：2017/4/17 15:33:00
--  
内部表，access怎么写？
--  作者：有点色
--  发布时间：2017/4/17 15:37:00
--  
 内部表、access就是用 IsNumeric，直接拷贝4楼代码。
--  作者：hbhb
--  发布时间：2017/4/17 15:48:00
--  

帮助中：运算符与函数的为什么不写？不告知？
--  作者：有点色
--  发布时间：2017/4/17 15:50:00
--  
以下是引用hbhb在2017/4/17 15:48:00的发言：

帮助中：运算符与函数的为什么不写？不告知？

 

这个是数据库自带的函数

 

http://www.foxtable.com/webhelp/scr/1415.htm

 

http://www.foxtable.com/webhelp/scr/0692.htm

 

http://www.foxtable.com/webhelp/scr/1827.htm
--  作者：hbhb
--  发布时间：2017/4/17 16:04:00
--  
那如果一列的类型是字符型，其中有数字型字符，有字母型字符。如何不更改列的数据类型，最简单的，如何转换并求出数字之和？
--  作者：hbhb
--  发布时间：2017/4/17 16:06:00
--  
 Dim qh As Double
        qh = rg.Table.Compute("sum(" & CDbl（cl.name） & ")")
以上写法哪里不对？