Select Case e.Path

    Case "addnew.htm"

        Dim wb As New weui

        wb.AddForm("","form1","handle.htm") \'指定接收表单数据的的页面为handle.htm

        With wb.AddInputGroup("form1","ipg1","新增订单")

          

            .AddInput("数量","数量","number")

            .AddInput("单价","单价","number").Step = 0.1

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "button").Attribute= ""

        End With

        With wb.AddDialog("","dlg1", "提示","增加数据完成，是否生成价格？") 

            .AddButton("btnYes","是").Attribute = "onclick=？？？" 想点击是则自动计算出价格处的数值。

            .AddButton("btnNo","否","http://www.foxtable.com").Kind = 1

        End With

        With wb.AddDialog("","dlg2", "错误","") \'增加订单失败提示框

            .AddButton("btnOK","确定")

        End With

        wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件

        e.WriteString(wb.Build)

    Case "handle.htm"

        Dim nms() As String = {"数量","单价"}

        For Each nm As String In nms

            If e.PostValues.ContainsKey(nm) = False Then

                e.WriteString("请输入" & nm & "!") \'返回错误消息

                Return \'必须返回

            End If

        Next

        Dim dr As DataRow = DataTables("订单").AddNew()

        For Each nm As String In nms

            dr(nm) = e.PostValues(nm)

        Next

        dr.Save()

        e.WriteString("OK") \'返回增加成功消息

End Select

狐表文件订单表，有3列，分别是单价、数量、价格，并且设置公式单价*数量=价格。现在想在手机端录入单价和价格，点击确定后，则在价格方框内调取狐表端的价格计算结果并显示在手机端，望老师指点。