输入内容为空则提示提交无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

图片点击可在新窗口打开查看此主题相关图片如下：1.png

一、这是新增窗口，在afterload事件中新增一行，打开为空白

二、希望填写内容点击提交后跳转到家庭信息，

三、如果填写内容为空，则提交无效，但是现在还能跳转过去？

代码：

With Tables("person")
   If .Current IsNot Nothing Then
        .Current.Save()
        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
        tab.SelectedIndex = 1
   Else
         Messagebox.show("您输入内容为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   Return

End If
End With

请老师帮忙看看

主题：输入内容为空则提示提交无效