以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把A表中其中一个单元格的数据提取到表B中??  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114618)

--  作者:top123
--  发布时间:2018/2/11 12:33:00
--  如何把A表中其中一个单元格的数据提取到表B中??

例如:A数据表中第2列的每个单元格中都有很多数据

其中的数据如下

姓名:sdfdgdg

性别:男

职业:454651213

手机:123456645456

 

如何把A表中的这些数据提取到表B中,并且在表B中变成

第一例(姓名):sdfdgdg

第二例(性别):男

第三例(职业):454651213

第四例(手机):123456645456


--  作者:有点蓝
--  发布时间:2018/2/11 14:36:00
--  
for each r as row in tables("A数据表")
    dim s() as string = r("第2列").replace(vbcr).split(vblf)
    dim nr as row = tables("表B").addnew
      nr("姓名") = s(0).replace("姓名:","")
      nr("性别") = s(1).replace("性别:","")
next
      

--  作者:top123
--  发布时间:2018/2/11 17:50:00
--  

1、显示编译语句出现在方法体外,是什么情况

2、在中全局代码中,把上面的代码写进去吗

 


--  作者:有点蓝
--  发布时间:2018/2/11 17:53:00
--  
打开命令窗口,输入2楼代码,执行
--  作者:top123
--  发布时间:2018/2/11 17:58:00
--  

也不对

 


--  作者:top123
--  发布时间:2018/2/11 18:00:00
--  

运行时,显示没有可访问的replace


--  作者:有点甜
--  发布时间:2018/2/12 8:56:00
--  
For Each r As Row In Tables("表a")
    Dim s() As String = r("第二列").replace(vbcr, "").split(vblf)
    Dim nr As Row = Tables("表B").addnew
      nr("姓名") = s(0).replace("姓名:","")
      nr("性别") = s(1).replace("性别:","")
Next

--  作者:top123
--  发布时间:2018/2/12 17:55:00
--  

在运行中出现了,索引超出数组界限,的问题

在运行后表B的单元格中的格式是

第一列:姓名:sdfdgdg

第二例:性别:男

希望出现的格式是

第一例(姓名):sdfdgdg

第二例(性别):男


--  作者:top123
--  发布时间:2018/2/12 18:28:00
--  

另外,是不是每次要用数据的时候,都要运行一遍,才能有新的数据出来

命令窗口,不能保存代码


--  作者:有点甜
--  发布时间:2018/2/12 18:33:00
--  

做一个按钮,然后贴入代码

 

For Each r As Row In Tables("表a")
    Dim s() As String = r("第二列").replace(vbcr, "").split(vblf)
    Dim nr As Row = Tables("表B").addnew
    If s.length >= 1 Then nr("姓名") = s(0).replace("姓名:","")
    If s.length >= 2 Then  nr("性别") = s(1).replace("性别:","")
Next