主题：InsertHTML 循环 求助

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Select Case e.Path

    Case "lsrz1.htm"

        Dim bm As String

        Dim gw As String

        Dim name As String

        Dim userid = Functions.Execute("验证函数",e,"lsrz1.htm")

        If userid > "" Then

            wb.AppendCookie("userid",userid) '将用户名和密码写入cookie

            Dim wxdr As DataRow =  DataTables("users").SQLFind("userid='" & userid & "'")

            If wxdr IsNot Nothing Then

                gw =  wxdr("position")

                name = wxdr("name")

                Dim wxdr1 As DataRow = DataTables("departments").SQLFind("id='" & wxdr("department") & "'")

                If wxdr1 IsNot Nothing Then

                    bm= wxdr1("name")

                End If

                

                'e.WriteString(name & userid & "USERID获取成功" & gw & bm)

                '------------------------------------------------------------------------------------------------------------------------------

                With wb.AddTabBar("", "tb1", 1)

                    .AddPage("page1","高管日志","./images/tb/1 (1).png")

                    .AddPage("page2","部门日志","./images/tb/1 (2).png")

                    .AddPage("page3","渠道日志","./images/tb/1 (3).png")

                    .AddPage("page4","今日报备","./images/tb/1 (4).png")

                End With

                

                Dim idx As Integer = 10

                For Each bm1 As String In DataTables("工作日报").GetValues("部门")

                wb.InsertHTML("page2", "<div "><label style='line-height:3'>" & bm1 & "</label></div>") 

                wb.AddPage("page2" ,"pg" & idx)

                For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = '" & bm1 & "'", "", "日期 Desc")

                    With wb.AddPreview("pg" & idx,"pv" & dr("_Identify"),"职员",dr("姓名") & ":" &dr("岗位"))

                        .AddItem("日期",dr("日期"))

                        .AddItem("今日达成",dr("今日达成"))

                        .AddItem("明日计划",dr("明日计划"))

                        .AddItem("营业收入",dr("营业收入"))

                    End With

                Next

                idx += 1

            Next

            

            

            wb.AppendHTML("<script>"pg" & idx.style.display = 'none';</script>")

            'wb.AppendHTML("<script>pg2.style.display = 'none';</script>")

            'wb.AppendHTML("<script>pg3.style.display = 'none';</script>")

            'wb.AppendHTML("<script>pg4.style.display = 'none';</script>")

            e.WriteString(wb.Build)

            '-----------------------------------------------------------------------------------

        End If

    End If

End Select