主题：新增窗口细节实现

1、

 

Dim cr = Tables("表A.表B").Current

If cr isNot Nothing Then

    If cr("姓名") = nothing orelse cr("关系") = nothing then

        msgbox("不能新增")

        return

    End If

End If

Tables("表A.表B").addnew

 

2、保存整体保存，如果是公共部分的内容，请不要放在页面里面，放到外面去。