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

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

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

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

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

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

'未填入数据的提示"请输入"
Dim cnames() As String = {"Textbox1", "TextBox2","Textbox3", "TextBox4","combobox1", "combobox2", "combobox3"}
Dim flag As Boolean = False
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 = "请输入"
        flag = True
    Else
        obj.ForeColor = color.black
    End If
Next
If flag Then Return

'删除空行
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("区间")
    't.Current(c.Name) = dr(c.Name)
Next

请看11楼代码。

主题：窗口问题