主题：请教求和代码

用正则取出数字

 

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

 

 如果用sqlSelect，可以这样写

 

Dim drs As List(Of DataRow) = DataTables("表A").sqlselect("IsNumeric(第五列)")
For Each dr As DataRow In drs
    output.show(dr("第五列"))
Next

 内部表、access就是用 IsNumeric，直接拷贝4楼代码。

 

这个是数据库自带的函数

 

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

 

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

 

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

Dim d As Double = DataTables("表a").SQLCompute("sum(val(第五列))")
msgbox(d)

11楼代码，测试，没问题。实例说明。

 

查询数字的行数，对比总的行数，即可。