字段拆分追加到表

时　间:2019-02-25 13:20:21
作　者:蓝桥   ID：14072  城市：宁国
摘　要:拆分字符串追加到表
正　文:

以下自己尝试写模块，写的根据不同字段拆分并追加到表的代码

Function Dsplit(Text As String, TableText As String, TableName As String, Optional Char As String)
Dim rs As Recordset
Dim i As Integer
Set rs = CurrentDb.OpenRecordset(TableName)
For i = LBound(Split(Text, Char)) To UBound(Split(Text, Char))
rs.AddNew
rs.Fields(TableText) = Split(Text, Char)(i)
rs.Update
Next
rs.Close
Set rs = Nothing
End Function

'Call Dsplit(拆分字段名,表插入字段名,表名,可选字符串)