1、写一自定义函数,该函数返回一个数组。
Function A(str As String) As Variant
A = Split(Replace(Replace(Replace(Replace(Replace(Replace(str, "+", ";"), "-", ";"), "*", ";"), "/", ";"), "^", ";"), " mod ", ";"), ";")
End Function
2、使用该数组,向某个表中插入前两个数组元素:
dim Ar
Ar=A(me.公式.value)
docmd.sql "insert into tbname ( 数据 ) values (" & Ar(0) & "),(" & Ar(1) & ")"
谢谢两斑竹!
见到老头也挺高兴的。
在参照之下,我用下面的方法解决了问题。(相关问题:斑竹的替换中有"*"、"^",这是必须的吗?空格是否需要替换掉?)
Function takeof(str As String) As Variant
takeof = Split(Replace(Replace(str, "/", ";"), "+", ";"), ";")
End Function
Private Sub 字符串_AfterUpdate()
Dim Myar As Variant
On Error Resume Next
Myar = takeof(Me.字符串)
Me.字段1 = Myar(0)
Me.字段2 = Myar(1)
If Myar(2) = Null Then
Me.字段3 = 0
Else
Me.字段3 = Myar(2)
End If
If Myar(3) = Null Then
Me.字段4 = 0
Else
Me.字段4 = Myar(3)
End If
End Sub
总记录:3篇 页次:1/1 9 1 :