主题：求填充公式

在属性中将控件名改你想要的名，就可以：

Dim Values As String() = {"textbox1","textbox2","textbox3","datetimepicker1"} -这个也要改

For Each Va as string In Values
    with e.form
        if .Controls(va).value = "" then
            MessageBox.Show(va & "资料不全,请录入!", "提示")
        end if
    end with
Next