以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 关于使用weui插件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151191)
--  作者：cool314156
--  发布时间：2020/6/17 16:03:00
--  [求助] 关于使用weui插件的问题
  1. Select Case e.Path    
  2.     Case "test.htm"  
  3.         Dim wb As New weui  
  4.         wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)  
  5.         wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>",True)  
  6.         wb.AddForm("","form1","test.htm")  
  7.         With ExWeUI.WebUI.AddInputGroup("","ipg1","动态级联列表")  
  8.             With .AddQuerySelect("xh","型号","|" & DataTables("规格").GetComboListString("型号"))  
  9.                 .A          ibute = "string">"setAjaxQueryOptions(\'gg_list\',\'getProducts.htm\',\'xh\',false)"""  
  10.                 .Placeholder = "请选择型号"  
  11.             End With  
  12.             With .AddQuerySelect("gg","规格","")  
  13.                 .A  ibute = "string">"setAjaxQueryOptions(\'ys_list\',\'getProducts.htm\',\'xh\',\'gg\',false)"""  
  14.                 .Placeholder = "先选择型号再选择规格"  
  15.             End With  
  16.             .AddQuerySelect("ys","颜色").Placeholder = "先选择型号规格再再选择颜色"  
  17.             wb.InsertHTML("form1",.BuildHtml)  
  18.         End With  
  19.         With wb.AddButtonGroup("form1","btg1",True)  
  20.             .Add("btn1", "确定", "submit")  
  21.         End With  
  22.         wb.AppendHTML("<script>initExWeUI();</script>")  
  23.         e.WriteString(wb.Build) \'生成网页  
  24. 把这段代码复制到内部函数就出问题了

  25. 图片点击可在新窗口打开查看此主题相关图片如下：qq图片202111.png
    图片点击可在新窗口打开查看求教下这个是什么原因啊

[此贴子已经被作者于2020/6/17 16:03:36编辑过]
--  作者：有点蓝
--  发布时间：2020/6/17 16:14:00
--  
AddQuerySelect，不存在上面截图里的AddQuerypihaoSelect，不要自己创造不存在的用法。

另外解决问题请放自己的代码，不要放帮助的代码，我们比您熟