[求助]自定义函数中为何表单验证的代码不可用呢？如何修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]自定义函数中为何表单验证的代码不可用呢？如何修改？

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "addnew.htm"
        If e.PostValues.Count = 0 Then
            Dim wb As New weui
            wb.AddTopTips("","toptip1","") '用于显示动态错误提示
            wb.AddForm("","form1","addnew.htm").Attribute=""
            With wb.AddInputGroup("form1","ipg1","新增订单")
                .AddSelect("产品","产品","|PD01|PD02|PD03")
                .AddInput("数量","数量","number")
                .AddInput("单价","单价","number").Step = 0.1
                .AddInput("折扣","折扣","number").Step = 0.01
                With .AddUploader("up1","图片",True)
                    .TextPosition = 0 '标题靠左
                    .AddImage("./images/shuqi2.jpg")
                End With
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定","submit")
            End With
            wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
            e.WriteString(wb.Build)
        Else
            Dim sb As New StringBuilder
            sb.AppendLine("<meta name='viewport' c>")
            sb.AppendLine("我已经收到您提交的数据和文件")
             e.WriteString(sb.Tostring)
        End If
    Case "valid.htm"
        If e.PostValues.ContainsKey("产品") AndAlso e.PostValues.ContainsKey("数量") AndAlso e.PostValues.ContainsKey("折扣") Then
            If e.PostValues("产品") = "PD01" AndAlso e.PostValues("数量") > 1000 Then
                e.WriteString("PD01库存只剩1000啦!")
            ElseIf e.PostValues("产品") = "PD01" AndAlso e.PostValues("折扣") > 0.1 Then
                e.WriteString("PD01的最大允许折扣为0.1哦")
            Else
                e.WriteString("OK")
            End If
        Else
            e.WriteString("请完整输入订单内容!")
        End If
End Select

主题：[求助]自定义函数中为何表单验证的代码不可用呢？如何修改？