以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未声明“ExWeUI  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190059)
--  作者：yifan3429
--  发布时间：2024/1/13 20:41:00
--  未声明“ExWeUI
---------------------------
错误
---------------------------
编译错误:未声明“ExWeUI”。它可能因其保护级别而不可访问。



错误代码：With ExWeUI.WebUI.AddListGroup("", "lst01", 1)
---------------------------
确定   
---------------------------



Select Case e.Path
    Case "Ipicbpgodmx"
        Dim wb As New weui 
        wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) 
        wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>", True) 
        With ExWeUI.WebUI.AddListGroup("", "lst01", 1) 
            For i As Integer = 1 To 4 
                With .AddList("Foxtable数据库应用开发宝典 数据管理", "images/007.jpg") 
                    With .LeftFooter 
                        .AddFoot("￥49.00").Attribute = "style=\'color:red;font-size:15px\'" 
                        .AddFoot("￥99.00").Attribute = "style=\'font-size:12px;text-decoration: line-through;\'" 
                    End With 
                    .RightFooter.AddFoot("加入购物车").Attribute = " style=\'color:blue;\'" 
                End With 
            Next 
            wb.InsertHTML(.BuildHtml) 
        End With 
        wb.AppendHTML("<script>initExWeUI();</script>") 
        e.WriteString(wb.Build) 
End Select 
--  作者：有点蓝
--  发布时间：2024/1/14 19:12:00
--  
把用到的第三方dll复制到Foxtable的安装目录
--  作者：yifan3429
--  发布时间：2024/1/15 1:09:00
--  
复制了
--  作者：有点蓝
--  发布时间：2024/1/15 8:36:00
--  
添加引用：http://www.foxtable.com/webhelp/topics/1936.htm