Foxtable(狐表)用户栏目专家坐堂 → 文本框空值禁止添加


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

主题:文本框空值禁止添加

帅哥,在线噢!
denghui69986
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
文本框空值禁止添加  发帖心情 Post By:2023/10/31 10:47:00 [只看该作者]

下面代码绑定表可以用,如果换成代码添加文本框空值禁止添加,把下面代码紫色换成文指定本框或者下拉选项,应该怎么改,老师指点,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:文本款代码.png
图片点击可在新窗口打开查看
If DataTables("库存").DataRows.Count = 0 Then
    Tables("库存").AddNew()
    Tables("库存").current("商品编号") = e.form.controls("ComboBox3").text
Tables("库存").current("商品型号") = e.form.controls("ComboBox1").text
Tables("库存").current("规格") = e.form.controls("ComboBox2").text
Else
    If Tables("库存").Current.IsNull("工号") Then
        Messagebox.Show("商品编号不能为空!")
    Else
        Tables("库存").AddNew()
    End If
End If

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/10/31 10:57:00 [只看该作者]

没看懂。新增的行肯定都是没有数据的呀

 回到顶部
帅哥,在线噢!
denghui69986
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2023/10/31 11:17:00 [只看该作者]

用代码绑定添加,如果文本框没有数据禁止添加到表,一楼代码文本框绑定到表可以,想用代码就指定文本框添加到表,想设置一楼代码指定文本框空值禁止添加。这下面平时这样代码添加到表,
Tables("A表").AddNew()
Tables("A表").current("一列") = e.form.controls("ComboBox3").text

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/10/31 11:22:00 [只看该作者]

dim a as string =  e.form.controls("ComboBox1").text
if a = "" then 
Messagebox.Show("商品编号不能为空!")
return
end if

a =  e.form.controls("ComboBox2").text
if a = "" then 
Messagebox.Show("xxx不能为空!")
return
end if
……
……
dim r as row = Tables("A表").AddNew()
r("列1") = e.form.controls("ComboBox1").text
r("列2") = e.form.controls("ComboBox2").text
……

 回到顶部
帅哥,在线噢!
denghui69986
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2023/10/31 11:49:00 [只看该作者]

可以了,感谢感谢

 回到顶部