主题：[求助]照做没做来

老师，向做一个这样的，没做来，请老师给改改

此主题相关图片如下：222222.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码.txt

什么地方有问题？

列表直接没显示出来

老师，把红框内的字体改小应该怎么写呢

        Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & userxmmc & "'",5,"[_Identify]")
        With ExWeUI.WebUI.AddExInfiniteScroll("pr01","pullcallback",0,5) 'drs(drs.Count - 1)("_Identify"))
            With wb.AddPanelGroup("","pg1","")
                For Each dr1 As DataRow In drs
                    Dim txt As String = "<p>身份证号码:" & dr1("身份证号码") & "</p>"
                    txt = txt & "<p>家庭地址:" & dr1("家庭地址") & "</p>"
                    .Add("pn1" & dr("_Identify"),"姓名:" & dr1("姓名"), txt ,"./images/button.png") '超链接
                Next
            End With
        wb.InsertHTML("<style>.fox_pg1_subtitle{color:red;}</style>")  '设置项目实名制管理系统字体颜色
        wb.InsertHTML("<style>.fox_pg1_subtitle{font-size:12px;}</style>")  '设置项目实名制管理系统字体大小
            .Content = wb.BuildHtml("pg1") '设置默认显示的列表
            wb.InsertHTML(.BuildHtml)
        End With
        wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)
        wb.AppendHTML("<script>initExWeUI();</script>")
        e.WriteString(wb.Build)

此主题相关图片如下：111.jpg

wb.InsertHTML("<style>.fox_pg1_subtitle{color:red;}</style>",true) 

我就是这样测试，不对啊，应该怎么弄呢，另外就是

Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & userxmmc & "'",5,"[_Identify]")

设置了返回行数，不对呢，所有行都出来了

网上搜索学一下css的基础，再学学如果使用开发者工具分析页面

p1 高度是0，怎么有一个高度在哪儿呢？

此主题相关图片如下：qq截图20220401155610.jpg

wb.InsertHTML("<style>#p1{height:100px;}</style>",true) 

    Case "Renamecx.htm"
        wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True) '引入样式2文件
        wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True) '引入框架文件
        With ExWeUI.WebUI.AddSearchBar("bar01") '添加一个搜索条
            .DataFunc ="test"            '绑定js的查询函数test
            .CancelFunc="testcancel"     '绑定js的取消函数testcancel
            wb.InsertHTML("",.BuildHtml) '添加到page1
        End With
        'wb.InsertHTML("","<br/>")
        'wb.InsertHTML("","<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据
        wb.InsertHTML("<style>#p1{height:100px;}</style>",True)
        wb.InsertHTML("","<div id='p1'></div>") '插入一个div,用于显示服务器返回的数据
        wb.AppendHTML("<script src='./weui/test.js' ></script>")     '引用查询函数和取消函数所在的js文件
        wb.AppendHTML("<script>initExWeUI();</script>")              '初始化框架
       
        Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & userxmmc & "'",5,"[_Identify]")
        With ExWeUI.WebUI.AddExInfiniteScroll("pr01","pullcallback1",0,5)
            With wb.AddPanelGroup("","pg1","")
                For Each dr1 As DataRow In drs
                    Dim txt As String = "<p>身份证号:" & dr1("身份证号码") & "</p>"
                    txt = txt & "<p>家庭地址:" & dr1("家庭地址") & "</p>"
                    .Add("pn1" & dr1("_Identify"),"姓名:" & dr1("姓名"), txt ,"./images/button.png","http://www.foxtable.com") '超链接
                Next
            End With
            .Content = wb.BuildHtml("pg1") '设置默认显示的列表,但是会重复出现
            wb.InsertHTML(.BuildHtml)
        End With
        wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)
        wb.AppendHTML("<script>initExWeUI();</script>")
        e.WriteString(wb.Build)

实际也是5条没问题，但是加上红色的两句代码，显示出来重复显示了1遍，相当于显示了10条