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

此主题相关图片如下：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)

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

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

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

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

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

    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条