- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 文本框空值禁止添加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188924)
-- 发布时间：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
-- 发布时间：2023/10/31 10:57:00
--
没看懂。新增的行肯定都是没有数据的呀
-- 发布时间：2023/10/31 11:17:00
--
用代码绑定添加，如果文本框没有数据禁止添加到表，一楼代码文本框绑定到表可以，想用代码就指定文本框添加到表，想设置一楼代码指定文本框空值禁止添加。这下面平时这样代码添加到表，
Tables("A表").AddNew()
Tables("A表").current("一列") = e.form.controls("ComboBox3").text
-- 发布时间：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……
-- 发布时间：2023/10/31 11:49:00
--
可以了，感谢感谢