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

With Tables("person")
   If .Current("第一列") <> Nothing AndAlso .Current("第二列") <> 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