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


  共有2794人关注过本帖树形打印复制链接

主题:求助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
接受表单那个例子,看了好多遍。  怎么也弄不明白。



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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106182 积分:540033 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/8 13:34:00 [只看该作者]

参考:http://www.foxtable.com/mobilehelp/topics/0113.htm

……
    Case "message.htm"
        wb.AddForm("","form1","message.htm")
        With wb.AddInputGroup("form1","ipg1","您的信息(无需填写)")
            With .AddInput("sjj","您的手机号","text")
            .Readonly = True
            .Value = e.PostValues("sjh"
            End With
        End With
        e.WriteString(wb.Build) '生成网页       
End Select

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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
  发帖心情 Post By:2020/4/8 19:11:00 [只看该作者]

Dim wb As New weui   '这里放在开始,下面调用
Dim sjhstring  As  String
Select Case e.Path
    Case "login.htm"
        If e.PostValues.Count = 0 Then

            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) '生成网页
        Else
            If e.PostValues.ContainsKey("sjh") Then
                  sjhstring = e.PostValues("sjh")
            End If

        End If
    Case "message.htm"
        wb.AddForm("","form1","message.htm")
        With wb.AddInputGroup("form1","ipg1","您的信息(无需填写)")
            With .AddInput("sjj","您的手机号","text")
            .Readonly = True
            .Value = e.PostValues("sjh")
            End With
        End With
        e.WriteString(wb.Build) '生成网页      
End Select

 

我这么写也不行啊。 第二个页面的值带不出来啊。

老师我实在是看不懂你让我参考的那个。  你能直接告诉我哪里错了吗?

老师你给的连接不是weui框架下的写法啊。

 

是这个e.PostValues("sjh") 东西的值,必须得提交到服务器端吗?  帮助里的例子我都看了一遍,也没看明白怎么提交。


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106182 积分:540033 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/9 9:02:00 [只看该作者]

Case "login.htm"
            wb.AddForm("","form1","message.htm")
            With wb.AddInputGroup("form1","ipg1","请先输入手机号")
                 .AddInput("sjh","手机号","text")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            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 = e.PostValues("sjh"
            End With
        End With
        e.WriteString(wb.Build) '生成网页       

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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
  发帖心情 Post By:2020/4/9 9:32:00 [只看该作者]

  多谢。总算明白了

 回到顶部
帅哥哟,离线,有人找我吗?
zhutangxin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3749 威望:0 精华:0 注册:2016/10/14 13:40:00
  发帖心情 Post By:2020/4/10 2:23:00 [只看该作者]

mark


 回到顶部
帅哥,在线噢!
pyh6918
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11029 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2020/4/13 22:39:00 [只看该作者]

困扰了我好几天,原来机关在这里!感谢版主!感谢楼主!

 回到顶部