[求助]关于单号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于单号

共有2548人关注过本帖树形打印复制链接主题：[求助]关于单号

工匠

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：550 积分：5021 威望：0 精华：0 注册：2017/4/20 11:08:00

[求助]关于单号 发帖心情

Post By：2019/2/25 0:01:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20190224.foxdb

老师好，现在有父表、子表、表C三个表，在表C第四列录入数据，点击录入按钮，将父表新增一行，将第四列大于0的行赋值到子表新增行，目前父表和子表是以单号进行关联，新增父表行时自动生成了单号，然后才将表C第四列大于0的行赋值子表新增的行，目前需要在点击按钮时：

1.新增父表行生成的单号要同步到子表这一次点击录入按钮新增行的单号列

2.如果表C第四列没有值，那么点击录入按钮时提示NG

谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

工匠

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：550 积分：5021 威望：0 精华：0 注册：2017/4/20 11:08:00

Post By：2019/3/5 22:30:00 [只看该作者]

谢谢老师

下一主题 >> << 上一主题

主题：[求助]关于单号