Foxtable(狐表)用户栏目专家坐堂 → 可查询列表


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

主题:可查询列表

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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
可查询列表  发帖心情 Post By:2022/5/10 16:06:00 [只看该作者]

请老师看看wb框架中的查询列表没用来

我原来登录界面代码如下:

............

wb.AddTopTips("","toptip1","请选择项目名称并输入登录账号和登录密码!")
        wb.AddForm("","form1","logon.htm").Attribute = ""     '调用valid JS 函数
        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style='margin-top:0.3em'"  '调整顶端距离

            .AddSelect("userxmmc","项目名称","|" & DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            .AddInput("username","登录账号","text").Placeholder = "请输入账号"
            .AddInput("password","登录密码","password").Placeholder = "请输入密码"
        End With
        With wb.AddButtonGroup("form1","btg1",False)     'True) 'False为水平排列
            .Add("btn1", "登录", "submit")
            '.Add("btn2", "退出", "exit.htm").Kind = 1    '.Add("btn9", "按钮").Kind = 1
        End With

..........

想把项目名称改为可查询列表,列表一直不出来,有点绕晕了,请老师看看,testres.htm页面我已加到了内部函数里面

..........

        wb.AddTopTips("","toptip1","请选择项目名称并输入登录账号和登录密码!")
        wb.AddForm("","form1","logon.htm").Attribute = ""     '调用valid JS 函数

        wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)  '需要注意的是,这里必需要使用true参数,假设文件放在weui目录中
        wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
        wb.AddForm("","form2","testres.htm")
        With ExWeUI.WebUI.AddInputGroup("form2","ipg1")
            .AddQuerySelect("userxmmc","项目名称",DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            wb.InsertHTML("form1",.BuildHtml)
        End With

        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style='margin-top:0'"  '调整顶端距离
            '.AddSelect("userxmmc","项目名称",  "|" & DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            .AddInput("username","登录账号","text").Placeholder = "请输入账号"
            .AddInput("password","登录密码","password").Placeholder = "请输入密码"
        End With
        With wb.AddButtonGroup("form1","btg1",False)     'True) 'False为水平排列
            .Add("btn1", "登录", "submit")
        End With

...........


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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/10 16:32:00 [只看该作者]

找到问题了,少抄了一句,折腾一小时

        wb.AppendHTML("<script>initExWeUI();</script>")


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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/10 17:13:00 [只看该作者]

 

[此贴子已经被作者于2022/5/10 17:14:30编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/10 17:14:00 [只看该作者]


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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/10 17:22:00 [只看该作者]

把height记错了,惭愧

 回到顶部