主题：父表空行的提示问题

请教老师，下面代码写在子表的BeforeAddDataRow

想实现，如果父表没有行，子表不能增加行，并进行提示，但是未达到效果，还是提示“增加行无效，父表无值.......

Dim r As row = tables("表A").current

If r("某列") = nothing Then

    e.Cancel = True

    MessageBox.Show("请先增加新数据行进行编辑后，再进行明细表编制")

else

    e.Cancel = False

End If

谢谢老师，您指导的代码我写过，不起作用，可能是我描述问题不清楚，因为父表此时是无对应的数据行，也无法current（主要是想解决，有的员工直接点击明细表增加行时进行友情提示，而不出现系统的提示“增加行失败...”

Dim r As row = tables("表A").current

If r is Nothing OrElse r("某列") = nothing Then

    e.Cancel = True

    MessageBox.Show("请先增加新数据行进行编辑后，再进行明细表编制")

else

    e.Cancel = False

End If

还是出现系统提示，简单做了个例子，请老师再看看，表A与表B关联，表A无任何数据行，此时表B增加行，依然出现系统提示 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试20180720.foxdb

测试了一下，这个无法控制。

方法一：你可以修改菜单的【新增行】的按钮命令，点击的时候先判断父表数据；

方法二：不要用关联表显示，改成副本表，模拟成关联表。