专家坐堂-接收表单数据部分实现不了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Path
    Case "input.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<form action=\'accept.htm\' enctype=\'multipart/form-data\' method=\'post\' id=\'form1\'name=\'form1\'>")
        sb.AppendLine("产品: <input name=\'cp\' id=\'cp\'><br/><br/>")
        sb.AppendLine("客户: <input name=\'kh\' id=\'kh\'><br/><br/>")
        sb.AppendLine("单价: <input type=\'number\' name=\'dj\' id=\'dj\'><br/><br/>")
        sb.AppendLine("数量: <input type=\'number\' name=\'sl\' id=\'sl\'><br/><br/>")
        sb.AppendLine("日期: <input type=\'date\' name=\'rq\' id=\'rq\'><br/><br/>")
        sb.AppendLine("密码: <input type=\'password\' name=\'mm\' id=\'mm\'><br/><br/>")
        sb.AppendLine("支付方式: <br/>")
        sb.AppendLine("<input type=\'radio\' name=\'fs\' id=\'fs1\' value = \'支付宝\' checked>支付宝") \'注意同一组的radio，name属性相同，id属性不同
        sb.AppendLine("<input type=\'radio\' name=\'fs\' id=\'fs2\' value = \'微信\'>微信")
        sb.AppendLine("<input type=\'radio\' name=\'fs\' id=\'fs3\' value = \'微信\'>网银<br/><br/>")
        sb.AppendLine("会员: <input type=\'checkbox\' name=\'hy\' id=\'hy\'><br/><br/>")
        sb.AppendLine("<input type=\'submit\' name=\'sumbit\' id=\'sumbit\' value=\'提交\'>")
        sb.AppendLine("<input type=\'reset\' name=\'reset\' id=\'reset\' value=\'重置\'>")
        sb.AppendLine("<input type=\'button\' name=\'foxtble\' id=\'foxtable\' value=\'Foxtable主页\' >")
        sb.AppendLine("</form>")
        e.WriteString(sb.ToString)
    Case "accept.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
End Select