主题：遍历控件求助

For Each c As Object In e.Form.Controls
    If c.text Is Nothing Then
        MessageBox.show("对不起,数据输入不完整,请补充输入")
    Else
        e.Form.Close
    End If
Next

Dim flag As Boolean = True
For Each c As Object In e.Form.Controls
    If c.text Is Nothing Then
        MessageBox.show("对不起,数据输入不完整,请补充输入")
        flag = False
    End If
Next
If flag Then
    e.Form.Close
End If

试试

 

Dim flag As Boolean = True
For Each c As Object In e.Form.Controls
    If Typeof c Is winform.Textbox OrElse Typeof c Is winform.ComboBox Then
        If c.text Is Nothing Then
            MessageBox.show("对不起,数据输入不完整,请补充输入")
            flag = False
        End If
    End If
Next
If flag Then
    e.Form.Close
End If

 

再不行，做个例子上来上来测试

Dim flag As Boolean = True
For Each c As Object In e.Form.Controls
    If Typeof c Is winform.Textbox OrElse Typeof c Is winform.ComboBox Then
        If c.text = Nothing Then
            MessageBox.show("对不起,数据输入不完整,请补充输入")
            flag = False
            Exit For
        End If
    End If
Next
If flag Then
    e.Form.Close
End If

 

不是，不能用 Is Nothing，要用 = Nothing 才行。