主题：请教：关闭模态对话框时，父窗体滚动条自动会跳会最顶端

With wb.AddPanelGroup("","pg","时间段:" & FirstDay & "至" & LastDay)

    For i As Integer = 0 To dt.datarows.count - 1

        Dim dr As DataRow = dt.datarows(i)

        

        Dim names() As String

        names = dr("记录人").split("|")

        Dim str As String

        str = names(1)

        If str.Length = 2 Then

            str = str.Insert(1,"&nbsp&nbsp&nbsp&nbsp")

        End If

        

        With .Add("pn" & i,"<label style='font-size:16px;font-weight:bold;color:#565656;'>" & dr("记录名称") & "</lable>",dr("记录内容"))

            .Badge= ""

            .AddFoot(str)

            .AddFoot("|" & dr("事件日期"))

            '.AddFoot("|详细","HRLogsListDetail.htm?recid=" & dr("记录编号"))

            .AddFoot("<a href='HRLogsListDetail.htm?recid=" & dr("记录编号") & "'>详细</a>")

            .AddFoot("<a href='#' onclick=HRLogsCanEdit('" & dr("记录编号") & "')>编辑</a>")

            .AddFoot("<a href='#' onclick=HRLogsCanDel('" & dr("记录编号") & "')>删除</a>")

            If cs = "409|张三" Then

                If dr("锁定标识")= True Then

                    .AddFoot("<a href='#' id='mya" & i & "' onclick=HRLogsLockUnlock('" & dr("记录编号") & "|mya" & i & "|解锁')>解锁</a>")

                Else

                    .AddFoot("<a href='#' id='mya" & i & "' onclick=HRLogsLockUnlock('" & dr("记录编号") & "|mya" & i & "|锁定')>锁定</a>")

                End If

            End If

            

        End With

    Next

End With