主题：请帮忙，谢谢。

还是不如这样

Dim ss As String() = {"类别","品名","起始日期","起运地","运达地" }
For  i As Integer = 0 To ss.Length - 1
    If e.Form.Controls(ss(i)).value Is Nothing  Then
        MessageBox.Show(ss(i))
        Exit For
    End If
Next