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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入内容为空则提示提交无效

共有2152人关注过本帖树形打印复制链接主题：输入内容为空则提示提交无效

susu312

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

输入内容为空则提示提交无效 发帖心情

Post By：2018/7/28 18:39:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：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

请老师帮忙看看

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/29 16:53:00 [只看该作者]

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

下一主题 >> << 上一主题

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