- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 备注字段如何分行读取文字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70722)
-- 发布时间：2015/6/27 13:44:00
-- 备注字段如何分行读取文字
备注字段有多行文字 （行数不定） ，现在需要将每一行文字分别读取出来，并分行写入另一个表的“部门”字段中，可以帮写段代码吗？
此主题相关图片如下：qq图片20150627133743.png
-- 发布时间：2015/6/27 14:10:00
--
For Each s As String In Tables("部门表").Current("部门列表").split(vbcrlf)
If s <> "" Then
Dim r As Row = Tables("表一").addnew
r("部门")=s.trim()
End If
Next
-- 发布时间：2015/6/27 17:33:00
--
完美，非常感谢！