主题：字符串分隔问题

简单：

Dim nm As String = "ABC1234567890,ABC2345678901,ABC3456789012,ABC4567890123,ABC5678901234,ABC6789012345,ABC7890123456,ABC8901234567,ABC9012345678"
Dim nms() As String  = nms.split(",")
For Each v As String In nms
    Dim dr As DataRow = DataTables("入库表").AddNew()
    dr("串号")  = v
Next