me.text1 内有数+空格+数，怎么求两数的和？

sunny　发表于：2011-03-30 17:54:27 　

me.text1内有数+空格+数（数位不限定），空格只有一个，怎么求两数的和？

比如：1 10或者1 100000或者100 10000

福瑞发表于：2011-03-30 21:56:30

是否可以使用空格作为分隔符，拆分为两个字段，再进行计算。

Function StrPart(Text, _
                 Index As Integer, _
                 Optional Delimeter As String = "-")
'返回含有分隔符的字符串中指定的部分
'使用此函数主要是因为无法在查询中使用Split函数
'Text       必需的，含有分隔符的字符串
'Index      必需的，要返回的部分的索引，从1开始
'Delimeter 可选的，分隔符，默认为“-”
'红尘如烟   2010-12-12
On Error Resume Next
    StrPart = Split(Text, "-")(Index - 1)
End Function

Top

曹光耀发表于：2011-03-30 22:19:05

split()函数运用

Private Sub Text0_AfterUpdate()
Dim str
Dim num
Me.Text2 = ""
str = Split(Me.Text0, " ")
num = CInt(str(0)) + CInt(str(1))
Me.Text2 = num
End Sub

Top

曹光耀发表于：2011-03-30 22:20:26

点击下载此附件用split()函数

Top

红尘如烟发表于：2011-03-30 23:16:41

最简单的方法就是把空格替换成 + 号，然后用EVal函数进行表达式求解：
=EVal(Replace(Me.Text1," ","+"))

Top

sunny 发表于：2011-03-31 09:09:28

谢谢各位的精彩回复！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

me.text1 内有 数+空格+数，怎么求两数的和？

me.text1 内有数+空格+数，怎么求两数的和？