标题: 请大侠帮我将这个模块做个示例，谢谢！ [打印本页] 作者: 123shusheng 时间: 2013-2-8 17:43 标题: 请大侠帮我将这个模块做个示例，谢谢！ Public Function NumberGet(chkStr As String) As String
'从字符串中提取数字
Dim i As Integer
For i = 1 To Len(chkStr)
If Mid(chkStr, i, 1) Like "[0-9]" Then
NumberGet = NumberGet & Mid(chkStr, i, 1)
End If
Next i
NumberGet = NumberGet
End Function
论坛里这个模块对我比较有用，请哪位大侠帮我做个例子，我是菜鸟，只会依葫芦画瓢！作者: 123shusheng 时间: 2013-2-8 21:41
自己研究出来了，SELECT 表1.编号, 表1.字段1, 表1.字段2, NumberGet([字段2]) AS 数值 FROM 表1;