Foxtable(狐表)用户栏目专家坐堂 → web中自动填入信息功能实现


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

主题:web中自动填入信息功能实现

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


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/18 9:16:00 [只看该作者]

编辑器里有明显的波浪线提示的,else对应的额是end if

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


加好友 发短信
等级:四尾狐 帖子:962 积分:6913 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2024/3/18 9:25:00 [只看该作者]

我意思你之前给我写的代码不对,我没理解那个一键解析的表单和按钮怎样才能放到最上边?

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


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/18 9:38:00 [只看该作者]

如果是指页面最上面,先添加按钮

        Dim wb As New weui
        wb.AddForm("","form1","test.htm")

        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        e.WriteString(wb.Build) 
'生成网页

如果是指比如户名和密码中间,要分开2个AddInputGroup

        Dim wb As New weui
        wb.AddForm("","form1","test.htm")

        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        With wb.AddInputGroup("form1","ipg2","登录")
            .AddInput("pw","密码","password")
        End With
        e.WriteString(wb.Build) 
'生成网页


 回到顶部
总数 13 上一页 1 2