Foxtable(狐表)用户栏目专家坐堂 → 父表和子表保存问题问题。请指教。


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

主题:父表和子表保存问题问题。请指教。

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


加好友 发短信
等级:二尾狐 帖子:567 积分:4329 威望:0 精华:0 注册:2020/4/15 19:53:00
父表和子表保存问题问题。请指教。  发帖心情 Post By:2021/9/16 21:57:00 [只看该作者]

窗口中如何实现 父表点击保存的时候,子表只保存跟父表相关的行。其他不相关的行不做操作。

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 22:11:00 [只看该作者]

使用select获取和父表有关的行,然后逐行保存:http://www.foxtable.com/webhelp/topics/0400.htm
[此贴子已经被作者于2021/9/16 22:11:58编辑过]

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


加好友 发短信
等级:二尾狐 帖子:567 积分:4329 威望:0 精华:0 注册:2020/4/15 19:53:00
帮忙看一下代码。  发帖心情 Post By:2021/9/16 22:45:00 [只看该作者]

If Tables("进货单").Current IsNot Nothing Then
    vars("a") = True
    Dim drs As List(Of DataRow)
    Dim bh1 As String = e.DataRow("进货单编号")
    drs = DataTables("进货单明细").Select("[进货单编号] =  '" bh1 "' ")
    For Each dr As DataRow In drs
        dr("进货单编号").Save()
    Next
    Tables("进货单").Current.Save()   
    Forms("进货单新增窗口").Close()
End If
代码放在 按钮里面


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 22:50:00 [只看该作者]

If Tables("进货单").Current IsNot Nothing Then
    vars("a") = True
    Dim drs As List(Of DataRow)
    drs = DataTables("进货单明细").Select("[进货单编号] =  '" & Tables("进货单").Current("进货单编号") &  "' ")
    For Each dr As DataRow In drs
        dr.Save()
    Next
    Tables("进货单").Current.Save()   
    Forms("进货单新增窗口").Close()
End If

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


加好友 发短信
等级:二尾狐 帖子:567 积分:4329 威望:0 精华:0 注册:2020/4/15 19:53:00
  发帖心情 Post By:2021/9/17 7:53:00 [只看该作者]

谢谢指教

 回到顶部