- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100484)
-- 发布时间：2017/5/12 10:14:00
-- 窗口问题
老师好：
请问：如下图，各类填写已经绑定到表格列， 我想在确定输入时判断一下 如果有没填的能在框内 用红色提示 “请输入”，求代码
谢谢老师。
此主题相关图片如下：1.jpg
-- 发布时间：2017/5/12 10:25:00
--
Dim cnames() As String = {"Textbox1", "TextBox2"}
For Each cname As String In cnames
Dim obj As object = e.Form.controls(cname)
If obj.value = Nothing OrElse obj.text = "请输入" Then
obj.ForeColor = color.red
obj.Text = "请输入"
Else
obj.ForeColor = color.black
End If
Next
-- 发布时间：2017/5/12 10:43:00
--
老师： 这是我全部代码， 点确定后没反应。求教
\'未填入数据的提示"请输入"
Dim cnames() As String = {"Textbox1", "TextBox2","Textbox3", "TextBox4"}
For Each cname As String In cnames
Dim obj As object = e.Form.controls(cname)
If obj.value = Nothing OrElse obj.text = "请输入" Then
obj.ForeColor = color.red
obj.Text = "请输入"
Else
obj.ForeColor = color.black
End If
Next
\'Dim cnames1() As String = {"combobox1", "combobox2", "combobox3"}
\'For Each cname1 As String In cnames1
\'Dim obj As object = e.Form.controls(cname1)
\'If obj.value = Nothing OrElse obj.text = "请输入" Then
\'obj.ForeColor = color.red
\'obj.Text = "请输入"
\'Else
\'obj.ForeColor = color.black
\'End If
\'Next
\'Dim cnames2() As String = {"DateTimePicker1"}
\'For Each cname2 As String In cnames2
\'Dim obj As object = e.Form.controls(cname2)
\'If obj.value = Nothing OrElse obj.text = "请输入" Then
\'obj.ForeColor = color.red
\'obj.Text = "请输入"
\'Else
\'obj.ForeColor = color.black
\'End If
\'Next
\'删除空行
DataTables("供电设备缺陷登记表").DeleteFor("发现人 Is Null And 发现时间 Is Null And 缺陷位置 Is Null")
DataTables("供电设备缺陷登记表").Save()
\'
\'增加行复制上行内容
Dim t As Table = Tables("供电设备缺陷登记表")
t.AddNew()
Dim dr As DataRow = DataTables("供电设备缺陷登记表").Find("_Identify = " & t.Rows(t.Current.Index - 1)("_Identify"))
For Each c As Col In t.Cols
t.Current("设备类型") = dr("设备类型")
t.Current("区间") = dr("区间")
Next
-- 发布时间：2017/5/12 10:47:00
--
单独测试这段代码，有没有问题？弹出123吗？
Dim cnames() As String = {"Textbox1", "TextBox2","Textbox3", "TextBox4"}
For Each cname As String In cnames
Dim obj As object = e.Form.controls(cname)
If obj.text = Nothing OrElse obj.text = "请输入" Then
obj.ForeColor = color.red
obj.Text = "请输入"
msgbox(123)
Else
obj.ForeColor = color.black
End If
Next
[此贴子已经被作者于2017/5/12 10:46:52编辑过]
-- 发布时间：2017/5/12 10:51:00
--
弹出来啦
-- 发布时间：2017/5/12 10:52:00
--
去掉 msgbox(123) 就没反应了
-- 发布时间：2017/5/12 10:56:00
--
没理由，把你的项目发上来测试一下。
-- 发布时间：2017/5/12 10:58:00
--
好的
[此贴子已经被作者于2017/5/12 11:07:50编辑过]
-- 发布时间：2017/5/12 11:04:00
--
以下是引用bluesky3234在2017/5/12 10:58:00的发言：
能私发给您吗，涉及。。。。
能私发给您吗，涉及。。。。
单独做个例子吧，做个项目，做个窗口，模拟你项目的设置，上传上来。
-- 发布时间：2017/5/12 11:15:00
--
老师： 编辑窗口为： 设备缺陷录入窗口
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1 - 副本.rar |