窗口问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好：

请问：如下图，各类填写已经绑定到表格列，我想在确定输入时判断一下如果有没填的能在框内用红色提示 “请输入”，求代码

谢谢老师。

此主题相关图片如下：1.jpg

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

老师：这是我全部代码，点确定后没反应。求教

'未填入数据的提示"请输入"

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

'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("区间")

单独测试这段代码，有没有问题？弹出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

[此贴子已经被作者于2017/5/12 10:46:52编辑过]

去掉 msgbox(123) 就没反应了

没理由，把你的项目发上来测试一下。

好的

[此贴子已经被作者于2017/5/12 11:07:50编辑过]

以下是引用bluesky3234在2017/5/12 10:58:00的发言：
能私发给您吗，涉及。。。。

单独做个例子吧，做个项目，做个窗口，模拟你项目的设置，上传上来。

老师：编辑窗口为：设备缺陷录入窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1 - 副本.rar

主题：窗口问题