Foxtable(狐表)用户栏目专家坐堂 → 求助weui传值的写法。


  共有2884人关注过本帖平板打印复制链接

主题:求助weui传值的写法。

帅哥哟,离线,有人找我吗?
houseer
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
求助weui传值的写法。  发帖心情 Post By:2020/4/8 12:25:00 [只看该作者]

   弄一个简单的例子。    就是第一个lonin页面,填上手机号后, 点确定自动跳转第二个页面上。   手机号自动带到第二个页面上去。



Dim wb As New weui   '这里放在开始,下面调用
Dim sjh As String
If e.Path = "login.htm" 
    If e.PostValues.ContainsKey("sjh") Then
        sjh = e.PostValues("sjh")
    End If
End If
Select Case e.Path
    Case "login.htm"
            wb.AddForm("","form1","login.htm")
            With wb.AddInputGroup("form1","ipg1","请先输入手机号")
                 .AddInput("sjh","手机号","text")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit","message.htm")
            End With
            e.WriteString(wb.Build) '生成网页
    Case "message.htm"
        wb.AddForm("","form1","message.htm")
        With wb.AddInputGroup("form1","ipg1","您的信息(无需填写)")
            With .AddInput("sjj","您的手机号","text")
            .Readonly = True
            .Value = sjh
            End With
        End With
        e.WriteString(wb.Build) '生成网页       
End Select



我怎么弄也不对。
http://www.foxtable.com/mobilehelp/index.htm?page=0055.htm
接受表单那个例子,看了好多遍。  怎么也弄不明白。



麻烦您在我这个例子上稍微改一下行吗?    怎么传值这块。

 回到顶部