以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]关于单号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131376)

--  作者：工匠 --  发布时间：2019/2/25 0:01:00 --  [求助]关于单号  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目20190224.foxdb 老师好，现在有父表、子表、表C三个表，在表C第四列录入数据，点击录入按钮，将父表新增一行，将第四列大于0的行赋值到子表新增行，目前父表和子表是以单号进行关联，新增父表行时自动生成了单号，然后才将表C第四列大于0的行赋值子表新增的行，目前需要在点击按钮时： 1.新增父表行生成的单号要同步到子表这一次点击 录入 按钮新增行的单号列 2.如果表C第四列没有值，那么点击 录入 按钮时提示NG 谢谢！

--  作者：有点甜 --  发布时间：2019/2/25 9:29:00 --   If Tables("表C").Current IsNot Nothing Then     Dim pr = Tables("父表").AddNew     Tables("父表").save     For Each r As Row In Tables("表C").Rows         If r("第四列") > 0 Then             Dim r1 As Row = Tables("子表").AddNew             r1("单号") = pr("单号")             r1("第一列")  = r("第一列")             r1("第二列")  = r("第二列")             r1("第三列")  = r("第三列")             r1("第四列")  = r("第四列")             r1.save                     End If     Next     MessageBox.Show("ok","提醒")     Tables("表C").save End If

--  作者：工匠 --  发布时间：2019/3/5 22:30:00 --   谢谢老师