共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：文本框空值禁止添加
1楼
denghui69986 发表于：2023/10/31 10:47:00下面代码绑定表可以用，如果换成代码添加文本框空值禁止添加，把下面代码紫色换成文指定本框或者下拉选项，应该怎么改，老师指点，谢谢
此主题相关图片如下：文本款代码.png
此主题相关图片如下：文本款代码.pngIf 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楼
有点蓝 发表于：2023/10/31 10:57:00没看懂。新增的行肯定都是没有数据的呀
3楼
denghui69986 发表于：2023/10/31 11:17:00用代码绑定添加，如果文本框没有数据禁止添加到表，一楼代码文本框绑定到表可以，想用代码就指定文本框添加到表，想设置一楼代码指定文本框空值禁止添加。这下面平时这样代码添加到表，
Tables("A表").AddNew()
Tables("A表").current("一列") = e.form.controls("ComboBox3").text
4楼
有点蓝 发表于：2023/10/31 11:22:00dim 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……
5楼
denghui69986 发表于：2023/10/31 11:49:00可以了，感谢感谢
共5 条记录, 每页显示 10 条, 页签:
[1]