- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表A的多行值自动增加到表B相关行中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118972)
-- 发布时间：2018/5/15 10:56:00
-- 表A的多行值自动增加到表B相关行中
老师：
表A的多行值根据编号自动增加到表B对应编号的相关行中
此主题相关图片如下：aabb.png
-- 发布时间：2018/5/15 11:03:00
--
1、
http://www.foxtable.com/webhelp/scr/2490.htm
2、赋值代码
父表某行("内容") = DataTables("子表").GetComboListString("内容", "编号 = \'" & e.DataRow("编号") & "\'").replace("|", vbcrlf)
-- 发布时间：2018/5/15 11:21:00
--
谢谢有点甜老师解决了
-- 发布时间：2018/5/15 19:47:00
--
老师你好：
我需求：界面上文本框的值，“换行” 输入到指定单元格中？
Dim dr As Row = Tables("日记").Current
Dim nns As String() = {"TextBox1","TextBox2","TextBox3"}
For Each nn As String In nns
Dim s As String = e.Forms.Controls(nn).value
dr("工程名称") = s.Replace("|",vbcrlf)
Next
-- 发布时间：2018/5/15 20:12:00
--
Dim dr As Row = Tables("日记").Current
Dim nns As String() = {"TextBox1","TextBox2","TextBox3"}
Dim str As String
For Each nn As String In nns
Dim s As String = e.Forms.Controls(nn).value
str = str & vbcrlf & s
Next
dr("工程名称") = str.TrimStart(vbcr,vblf)