| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何把A表中其中一个单元格的数据提取到表B中？？ (http://www.foxtable.com/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") |