Foxtable(狐表)用户栏目专家坐堂 → 表A的多行值自动增加到表B相关行中


  共有1994人关注过本帖树形打印复制链接

主题:表A的多行值自动增加到表B相关行中

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
表A的多行值自动增加到表B相关行中  发帖心情 Post By:2018/5/15 10:56:00 [只看该作者]

老师:
表A的多行值根据编号自动增加到表B对应编号的相关行中



图片点击可在新窗口打开查看此主题相关图片如下:aabb.png
图片点击可在新窗口打开查看




 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/15 11:03:00 [只看该作者]

1、

 

http://www.foxtable.com/webhelp/scr/2490.htm

 

2、赋值代码

 

父表某行("内容") = DataTables("子表").GetComboListString("内容", "编号 = '" & e.DataRow("编号") & "'").replace("|", vbcrlf)
 

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/5/15 11:21:00 [只看该作者]

谢谢有点甜老师解决了

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部