主题：多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点）

如图示：上面为绑定到入库单，下面TABLE邦定到入库明细

想实现功能：1、入库明细中的“数量”为空时，不能添加货品，若占击添加货品，则提示数量空，并把光标返回空值单元 格      2、若入库单的“仓库名称”及“入库类型”为空时，不能保存，点击保存时，提示空值并把光标返回空值处；若入库明细为空时，不能保存，点击保存时，提示没有明细；若明细表中数量列为空值时，不能保存，点击保存时，提示明细中数量为空，并把光标返回空值处。若全都没问题，则明细表及入库表一起保存。

    这个我弄了好久，但都弄不成功。对于高手也许是个很简单的轻易易举的事情。请高手帮帮忙，让我们好学习一下。谢谢

1、

Dim r As Row = Tables("入库.入库明细").Current
If r IsNot Nothing AndAlso r.IsNull("数量") Then
    messagebox.Show("请输入数量","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("入库.入库明细").Focus()
    Return
End If
Tables("入库.入库明细").AddNew()

2、3：

Dim r As Row = Tables("入库").Current
If Tables("入库.入库明细").Count = 0 Then
    messagebox.show("请输入明细","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
ElseIf r.IsNull("仓库名称") OrElse r.IsNull("类型") Then
    messagebox.show("请输入仓库名称和类型","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
r.save()

Tables("入库明细").Save()

上面窗口的入库单，在一个表上前几列为基本信息通过填充，后几列为入库信息，可以实现吗？

还是必须要用２个表？