[求助] 关于使用weui插件的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
wb.AddForm("","form1","test.htm")
With ExWeUI.WebUI.AddInputGroup("","ipg1","动态级联列表")
With .AddQuerySelect("xh","型号","|" & DataTables("规格").GetComboListString("型号"))
.A ibute = "string">"setAjaxQueryOptions('gg_list','getProducts.htm','xh',false)"""
.Placeholder = "请选择型号"
End With
With .AddQuerySelect("gg","规格","")
.A ibute = "string">"setAjaxQueryOptions('ys_list','getProducts.htm','xh','gg',false)"""
.Placeholder = "先选择型号再选择规格"
End With
.AddQuerySelect("ys","颜色").Placeholder = "先选择型号规格再再选择颜色"
wb.InsertHTML("form1",.BuildHtml)
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) '生成网页
把这段代码复制到内部函数就出问题了
此主题相关图片如下：qq图片202111.png
求教下这个是什么原因啊

[此贴子已经被作者于2020/6/17 16:03:36编辑过]

主题：[求助] 关于使用weui插件的问题