以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  父表和子表保存问题问题。请指教。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171991)

--  作者：夜点蚊香 --  发布时间：2021/9/16 21:57:00 --  父表和子表保存问题问题。请指教。 窗口中如何实现 父表点击保存的时候，子表只保存跟父表相关的行。其他不相关的行不做操作。

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

--  作者：夜点蚊香 --  发布时间：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 代码放在 按钮里面

--  作者：有点蓝 --  发布时间：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

--  作者：夜点蚊香 --  发布时间：2021/9/17 7:53:00 --   谢谢指教