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

Select Case e.Path
    Case "filter.htm"
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            .AddSelect("product","产品","PD01|PD02|PD03|PD04|PD05")
            .AddInput("startdate","开始日期","date")
            .AddInput("enddate","结束时间","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
    Case "list.htm"
        Dim flt As String
        If e.PostValues.ContainsKey("product") Then
            flt = "产品 = \'" & e.PostValues("product") & "\'"
        End If
        If e.PostValues.ContainsKey("startdate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "日期 >= \'" & e.PostValues("startdate") & "\'"
        End If