以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]weui插件问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151214)

--  作者:cool314156
--  发布时间:2020/6/18 9:51:00
--  [求助]weui插件问题
用weui插件 测试出现了
图片点击可在新窗口打开查看此主题相关图片如下:插件问题.png
图片点击可在新窗口打开查看提示是插件js错误

--  作者:cool314156
--  发布时间:2020/6/18 9:55:00
--  
Dim e As RequestEventArgs = args(0)
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","kucun.htm")
With wb.AddInputGroup("form1","ipg6","库存查询")
    .AddInput("bianhao","商品编号","text")
    .AddInput("huowei","货位号","text")
End With
With ExWeUI.WebUI.AddInputGroup("","ipg1")
    \'.AddInput("bianhao","商品编号","text")
    With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
        .At   tri    bute = """
        .Placeholder = "请选择通用名"
    End With
    With .AddQuerySelect("guige","规格","")
        .Att    ri      bute = """
        .Placeholder = "先选择通用名再选择规格"
    End With
    .AddQuerySelect("pihao","批号").Placeholder = "先选择通用名规格再再选择批号"
    wb.InsertHTML("form1",.BuildHtml)
End With
\'.AddInput("huowei","货位号","text")
With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) \'生成网页  "


Dim e As RequestEventArgs = args(0)
\'Dim wb As New weui
        Dim vals As String
        If e.PostValues.Count = 1 Then
            vals  = "|" & DataTables("库存").GetComboListString("规格","通用名=\'" & e.PostValues("mingzi") & "\'")
        ElseIf e.PostValues.Count = 2 Then
            Dim Filter As String = "通用名=\'" & e.PostValues("mingzi") & "\' And 规格=\'" & e.PostValues("guige") & "\'"
            vals = "|" & DataTables("库存").GetComboListString("批号", Filter)
        End If
\'MessageBox.Show(Filter)
MessageBox.Show(vals)
        e.WriteString(vals)
这个是相关的代码

[此贴子已经被作者于2020/6/18 9:56:10编辑过]

--  作者:有点蓝
--  发布时间:2020/6/18 10:00:00
--  
使用的什么浏览器?

下面代码不完整
With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
        .At   tri    bute = """
        .Placeholder = "请选择通用名"
    End With

--  作者:cool314156
--  发布时间:2020/6/18 10:11:00
--  
用版主给的例子也出现问题了,
图片点击可在新窗口打开查看此主题相关图片如下:官方的例子.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:实例.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/6/18 10:13:00
--  
使用的什么浏览器?什么操作系统?
--  作者:cool314156
--  发布时间:2020/6/18 10:24:00
--  
用的是Google Chrome这个浏览器,系统是xp的



--  作者:cool314156
--  发布时间:2020/6/18 10:27:00
--  
而且这个问题很奇怪,昨天还是正常的。
--  作者:有点蓝
--  发布时间:2020/6/18 10:43:00
--  
换个浏览器,或者使用手机测试一下
--  作者:cool314156
--  发布时间:2020/6/18 10:48:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:手机.jpg
图片点击可在新窗口打开查看手机测试的情况是选择了通用名,规格没法选


--  作者:有点蓝
--  发布时间:2020/6/18 11:00:00
--  
手机测试论坛的例子有没有问题?