Office中国论坛/Access中国论坛

标题: [求助]帮忙看看这个取数字的函数那里不对？ [打印本页]

作者: hjy611 时间: 2006-1-10 01:07
标题: [求助]帮忙看看这个取数字的函数那里不对？
Function TrueLen(ByVal stra As String) As Long
Dim i As Integer
Dim strResult As String  '返回字串
Dim strb As String
For i = 1 To Len(stra)
      strb = Mid(stra, i, 1)
      If IsNumeric(strb) Then
         strResult = strResult + CStr(strb)
      End If
Next i

End Function

这个代码Sub 测试就可以但在查询里用上面函数就是取不到所以数据都变成0

作者: hjy611 时间: 2006-1-10 01:09
Sub Macro1()

Dim stra As String
Dim strb As String
Dim strResult As String
Dim i As Integer

stra = "1111杭州"

For i = 1 To Len(stra)
      strb = Mid(stra, i, 1)
      If IsNumeric(strb) Then
         strResult = strResult + CStr(strb)
      End If
Next i

MsgBox (strResult)
End Sub
这样测试是通过了也取到了1111

作者: 一点通 时间: 2006-1-10 01:15
用Val函数取值不行吗？为何要自己处理？

作者: hjy611 时间: 2006-1-10 01:21
不行啊

被叫区号

0311石家庄

022天津

010北京

022天津

022天津

0512苏州

022天津

022天津

数据是这个样子的

作者: sgrshh29 时间: 2006-1-10 01:25

以下是引用hjy611在2006-1-9 17:07:00的发言：

Function TrueLen(ByVal stra As String) As Long
Dim i As Integer
Dim strResult As String  '返回字串
Dim strb As String
For i = 1 To Len(stra)
      strb = Mid(stra, i, 1)
      If IsNumeric(strb) Then
         strResult = strResult + CStr(strb)
      End If
Next i

End Function

这个代码Sub 测试就可以但在查询里用上面函数就是取不到所以数据都变成0

function 是返回值的,而sub是不返回值的.

作者: hjy611 时间: 2006-1-10 01:33
出来了下面是对的

Function TrueLen(stra As String) As String
Dim i As Integer, n As Byte, strb As String
n = Len(stra)
For i = 1 To n
strb = Mid(stra, i, 1)
If IsNumeric(strb) Then TrueLen = TrueLen + strb
Next i
End Function

作者: 一点通 时间: 2006-1-10 02:13
为何不行呢?传例子上来看下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)