以文本方式查看主题 - 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") |