- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有10个文体框 还有一个保存按钮 如果有一个文体框没有值 就弹出一个对话 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47059)
-- 发布时间：2014/3/4 9:19:00
-- 有10个文体框 还有一个保存按钮 如果有一个文体框没有值 就弹出一个对话
怎么做
-- 发布时间：2014/3/4 9:26:00
--
1.遍历控件http://www.foxtable.com/help/topics/1849.htm
2.文本框采用1-10的编号
dim t as Boolean=false
for i as integer =1 to 10
if e.form.controls("TextBox" & i).text="" then
t=true
exit for
end if
next
if t then
messagebox.show("YOU空值")
end if
-- 发布时间：2014/3/4 9:27:00
--
For Each c As WinForm.Control In e.Form.Controls
If c.Gettype.Name = "TextBox" Then
If e.Form.Controls(c.Name).text = "" Then
MessageBox.Show("所有文本框都不能为空")
Exit For
End If
End If
Next
-- 发布时间：2014/3/4 9:49:00
--
那我那个按纽中有新增行的代码的 如果有文体框是空的就不新增 怎么做
-- 发布时间：2014/3/4 9:52:00
--
那个按纽就是新增行这样的按纽 我要判断
此主题相关图片如下：qq截图20140304095108.png
-- 发布时间：2014/3/4 9:52:00
--
要学会变通,你这样只会复制代码不行的哦.
2.文本框采用1-10的编号
dim t as Boolean=false
for i as integer =1 to 10
if e.form.controls("TextBox" & i).text="" then
t=true
exit for
end if
next
if t then
messagebox.show("YOU空值")
else
addnew 增加行
end if
-- 发布时间：2014/3/4 9:53:00
--
就算弹出对话框也要新增行的
-- 发布时间：2014/3/4 9:55:00
--
你到底是想怎么样? 怎么一会是空不增加,一会是空弹出也要增加?
不过不管是怎么样都是非常简单的,自己参考上面多次给你调整的代码,自己调整一下吧.
-- 发布时间：2014/3/4 9:56:00
--
For Each c As WinForm.Control In e.Form.Controls
If c.Gettype.Name = "TextBox" Then
If e.Form.Controls(c.Name).text = "" Then
MessageBox.Show("所有文本框都不能为空")
Return
End If
End If
Next
Tables("表A").AddNew()