以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符串分隔问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29101)
--  作者：jeketli168
--  发布时间：2013/2/27 16:47:00
--  字符串分隔问题

本人菜鸟一个，在用FOXTABIE试着做一个串号管理系统，现在碰到一个问题，就是二维码的分解问题。

二维码扫描出来是一个串号组，最多有50个串号，每个串号用分隔符分开。现要求把串号组分解出来分别添加到表格的某一列（假设是入库表，串号列）

 

比如二维码扫出来是：ABC1234567890，ABC2345678901，ABC3456789012，ABC4567890123，ABC5678901234，ABC6789012345，ABC7890123456，ABC8901234567，ABC9012345678

 

要把里面的9个串号分别提出添加到入库表的串号列里，就相当于添加了九条记录（9行）

 

代码该如何写？请各位前辈指教

 

 

 
--  作者：狐狸爸爸
--  发布时间：2013/2/27 16:49:00
--  

简单：

 

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
--  作者：lsy
--  发布时间：2013/2/27 17:03:00
--  
简单却非常实用。
--  作者：jeketli168
--  发布时间：2013/2/27 22:00:00
--  

谢了，很不错