以文本方式查看主题

-  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=15629)
--  作者：jacky0123456
--  发布时间：2012/1/4 9:24:00
--  求思路
请问假定在一个单元格内有几个人名，我想通过一个按键可以将这几个人名从这个单元格中取出，有几个人就在另一个表中新建几行，并且将每一个人名附在新建的每一行这样的想法不知是否可行？如可行，求个思路，谢谢！
[此贴子已经被作者于2012-1-4 9:35:15编辑过]
--  作者：lihe60
--  发布时间：2012/1/4 9:36:00
--  

先获取单元格值，再通过split分隔开，然后每个值增加一行。
--  作者：lihe60
--  发布时间：2012/1/4 9:37:00
--  
你是新狐友，应该先看帮助三遍，然后再提问题。
--  作者：狐狸爸爸
--  发布时间：2012/1/4 9:49:00
--  

很简单：

 

Dim Multi As String = "ab|cd|ef"
Dim Values() As String
Values = Multi.split("|")
For Each value As String In values
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = value
Next