有几个表显示插入数据成功 ======================= 这是你程序显示的吗?显示这个就能确定插入成功了吗? 你有没有设置 ON ERROR RESUME NEXT错误处理语句!?
谢谢各位,是split地方有错,没有符合普遍规律。我重新写了取得数字和中文字符的函数后搞定。 Public Function GetNum(aStrParam As String) As String Dim i As Long, strTmp As String
For i = 1 To Len(aStrParam) If IsNumeric(Mid(aStrParam, i, 1)) Then GetNum = GetNum & Mid(aStrParam, i, 1) End If Next End Function Public Function GetValue(aStrParam As String) As String Dim i As Long, strTmp As String
For i = 1 To Len(aStrParam) If IsNumeric(Mid(aStrParam, i, 1)) Then Else: GetValue = GetValue & Mid(aStrParam, i, 1) End If Next End Function
也可以修改了,但是插入还是有问题
我调试发现,可能是split函数分解的时候出的问题
因为数字与汉字之间可能有一个空格也可能有多个空格(极端情况还可能没有空格)
请问,先考虑有不定数量的空格该怎么办,感谢大家
=======================
这是你程序显示的吗?显示这个就能确定插入成功了吗?
你有没有设置
ON ERROR RESUME NEXT错误处理语句!?
Public Function GetNum(aStrParam As String) As String
Dim i As Long, strTmp As String
For i = 1 To Len(aStrParam)
If IsNumeric(Mid(aStrParam, i, 1)) Then
GetNum = GetNum & Mid(aStrParam, i, 1)
End If
Next
End Function
Public Function GetValue(aStrParam As String) As String
Dim i As Long, strTmp As String
For i = 1 To Len(aStrParam)
If IsNumeric(Mid(aStrParam, i, 1)) Then
Else: GetValue = GetValue & Mid(aStrParam, i, 1)
End If
Next
End Function