以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串分隔问题  (http://foxtable.net/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
--  

谢了,很不错