- 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=176536)
-- 发布时间：2022/4/16 23:55:00
-- [求助]+加号删除并换行
表A第一列第一行值 一行文字： 12.03+2.16+8.12+0.71*0.8*2
求助：窗口按钮点击代码实现，上面粉色+变为换行，表A第一列第一行值变成四行文字：
12.03
2.16
8.12
0.71*0.8*2
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:+加号删除并换行.foxdb |
[此贴子已经被作者于2022/4/17 0:06:34编辑过]
-- 发布时间：2022/4/17 20:16:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=176535
反过来替换即可
-- 发布时间：2022/4/18 11:07:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/bbs/...
Dim sf As String = Tables("表A").Current("第一列").replace("+",vbcrlf)
Dim r As Row
For Each s As String In sf
r = Tables("表B").addnew
r("第二列") = s
Next
上面代码，是把表A第一列去除+号后，1个字符1行新增到表B第二列
求助，以+号分隔为1行新增到表B第二行
-- 发布时间：2022/4/18 12:00:00
--
Dim sf As String = Tables("表C").Current("第一列").replace("+", vbcrlf) Dim r As Row r = Tables("表C").addnew r("第二列") = sf
-- 发布时间：2022/4/18 13:10:00
-- 回复：（有点蓝）Dim sf As String = Tables("表C").C...
第一列 12.03+2.16+8.12+0.71*0.8*2
上楼代码执行后，第二列只新增第1行（不是想要的结果）
12.03
2.16
8.12
0.71*0.8*2
蓝主，求助第二列，新增4行，4行值分别是
12.03
2.16
8.12
0.71*0.8*2
[此贴子已经被作者于2022/4/18 13:27:53编辑过]
-- 发布时间：2022/4/18 13:34:00
--
Dim sf As String = Tables("表A").Current("第一列")
Dim r As Row
For Each s As String In sf.split("+")
r = Tables("表B").addnew
r("第二列") = s
Next