参考代码

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
    Case "addnewkf.htm" \'康复管理页面
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnewkf.htm")
            With wb.AddInputGroup("form1","ipg1","康复管理")
                With .AddInput("客户编号","客户编号","")
                    .Placeholder = "编号为客户手机号"
                End With
                .AddInput("客户姓名","客户姓名","Text")
                .AddInput("康复离店时间","康复时间","date").Value = Format(Date.Today,"yyyy-MM-dd")
                .AddInput("经办人","经办人","Text").value = e.Cookies("JBR")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build) \'生成网页
        Else
            Dim jbr As String = e.PostValues("经办人")
            wb.AppendCookie("JBR",jbr) \'经办人的值写入cookie
            \'Dim nms() As String = {"客户编号","客户姓名","康复离店时间","经办人"}
            \'Dim dr As DataRow = DataTables("康复离店").AddNew()
            \'For Each nm As String In nms
            \'dr(nm) = e.PostValues(nm)
            \'Next
            \'\'\'保存并生成增加成功提示页面
            \'dr.save()
            With wb.AddMsgPage("","msgpage","增加成功", "你真棒!继续加油!") \'生成成功提示页
                .AddButton("btn1","继续增加","addnewkf.htm")
                .AddButton("btn2","返回主页","default.htm")
            End With
            e.WriteString(wb.Build)
        End If
End Select