- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 新增窗口问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132756)
-- 发布时间：2019/3/29 9:35:00
-- 新增窗口问题
求助，老师我做了一个新增的窗口，效果是这样的，当我点击新增按钮 会提示某个内容没有填写，但是我这个已经填写了部门内容 主表上部门列也出现了填写的内容了，当我再次按下新增按钮 应该是会提示“姓名未输入” 为什么我这个还是提示部门未输入
此主题相关图片如下：企业微信截图_20190329092734.png
新增按钮代码：
Dim bm As DataRow = DataTables("计算机用户资料").Find("部门 Is Null")
Dim xm As DataRow = DataTables("计算机用户资料").Find("姓名 Is Null")
Dim IPdz As DataRow = DataTables("计算机用户资料").Find("IP地址 Is Null")
Dim kjmm As DataRow = DataTables("计算机用户资料").Find("开机密码 Is Null")
Dim WW As DataRow = DataTables("计算机用户资料").Find("外网 Is Null")
If bm IsNot Nothing Then
e.Cancel = True \'那么取消输入并提示用户
MessageBox.Show("部门未输入!","提示")
Return
ElseIf xm IsNot Nothing Then
e.Cancel = True \'那么取消输入并提示用户
MessageBox.Show("姓名未输入!","提示")
Return
ElseIf IPdz IsNot Nothing Then
e.Cancel = True \'那么取消输入并提示用户
MessageBox.Show("IP地址未输入!","提示")
Return
ElseIf kjmm IsNot Nothing Then
e.Cancel = True \'那么取消输入并提示用户
MessageBox.Show("开机密码未输入!","提示")
Return
ElseIf WW IsNot Nothing Then
e.Cancel = True \'那么取消输入并提示用户
MessageBox.Show("外网未输入!","提示")
End If
-- 发布时间：2019/3/29 10:33:00
--
参考代码
Dim bm As String = e.Form.controls("textbox1").text
Dim xm As String = e.Form.controls("textbox2").text
Dim IPdz As String = e.Form.controls("textbox3").text
If bm = Nothing Then
MessageBox.Show("部门未输入!","提示")
Return
ElseIf xm = Nothing Then
MessageBox.Show("姓名未输入!","提示")
Return
ElseIf IPdz = Nothing Then
MessageBox.Show("IP地址未输入!","提示")
Return
End If
-- 发布时间：2019/3/29 12:42:00
--
谢谢