如何分割数据,然后逐行录入
例如我有快递单号 12344 124354 2344555 ...N 个单号我在一个文本框,用换行分割,怎么实现逐行录入呢,就是一个单号一条数据
Dim Arr
Arr = Split(Text1.Text, vbCrLf)
sql = "select * from 退货单号 where 快递单号 = '" & Text1.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
If Not rs.EOF And Not rs.BOF Then
For i = 0 To UBound(Arr)
rs("快递单号") = Arr(i)
Next i
rs.Update
coon.close
End If
这代码只能录入最后一条,不能分别录入,请各位老师帮忙一下