- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 输入内容为空则提示提交无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122591)
-- 发布时间：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
请老师帮忙看看
-- 发布时间：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