Foxtable(狐表)用户栏目专家坐堂 → 新增窗口问题


  共有1717人关注过本帖树形打印复制链接

主题:新增窗口问题

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
新增窗口问题  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/3/29 12:42:00 [只看该作者]

谢谢

 回到顶部