以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  wrt.ReplaceOne换行如何实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175731)

--  作者：xluoping --  发布时间：2022/3/16 18:26:00 --  wrt.ReplaceOne换行如何实现？         For Each gzdr As DataRow In DataTables("写实详情").Select("写实id = " & r("_Identify"),"开始时间,结束时间")             gzst = gzst & vbcrlf & ii & "、" & Format(gzdr("开始时间"),"HH:mm") & "～" & Format(gzdr("结束时间"),"HH:mm") & "在" & gzdr("地点") & "，" & gzdr("工作内容") & "，可能接触" & gzdr("危害因素") & "，" & gzdr("备注")             ii = ii + 1         Next         wrt.ReplaceOne("{工作时间序}",gzst.Trim(vbcrlf)) 替换后，vbcrlf 处没有换行，这是什么原因？

--  作者：xluoping --  发布时间：2022/3/17 8:35:00 --           For Each gzdr As DataRow In DataTables("写实详情").Select("写实id = " & r("_Identify"),"开始时间,结束时间")             gzst = gzst & “^p” & ii & "、" & Format(gzdr("开始时间"),"HH:mm") & "～" & Format(gzdr("结束时间"),"HH:mm") & "在" & gzdr("地点") & "，" & gzdr("工作内容") & "，可能接触" & gzdr("危害因素") & "，" & gzdr("备注")             ii = ii + 1         Next         wrt.ReplaceOne("{工作时间序}",gzst.Trim(“^“，“p” )) 这样就OK了

--  作者：有点蓝 --  发布时间：2022/3/17 8:36:00 --   vbcrlf 改为vbcr