高手请进，问题一直没有得到真正解决。请帮助新人。感激……

三个页面
查询页：上面有一个网格。将纪录显示并注册行事件,单击网格行激活 quote.aspx    Private Sub dagr_ShowData_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dagr_ShowData.ItemDataBound
        If e.Item.ItemIndex <> -1 Then
            e.Item.Attributes.Add("onclick", "winOpen('quote.aspx?frmQuote_num=" + e.Item.Cells(2).Text + "','quote',780,620,250,230)")
        End If
    End Sub
quote.aspx:  上面有一个网格还有个“追加明细”按钮。
       将纪录显示并注册行事件,单击网格行（修改）
       或按钮（追加）都激活 quoteItem.aspx
       
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Me.IsPostBack = False Then
            Dim CQuote As New BLL.Quote.CQuote, RefMsg As String = ""
            Dim CCommon As New Common.CommonClass            '/* 确定显示还是生成新号 */
            If TypeName(Request("frmQuote_num")) <> "Nothing" Then  '其它页跳转[说明为维护状态]
                Display(Request("frmQuote_num"))                    '显示页面数据+网格明细数据
            Else
                '/* 生成报价单号 */     '不是其它页跳转
                txt_Quotenum.Text = CQuote.GetNewQuoteNum(drpYyNameList.SelectedValue.Trim, RefMsg)
                If RefMsg <> "" Then
                    CCommon.MsgBox(RefMsg, Me)
                    Exit Sub
                End If
            End If
End If

''注册“追加明细”按钮事件-----------------------------------------------------Begin     
If (Not IsClientScriptBlockRegistered("QuoteItemclientScript")) Then   
            Dim strScript As String = "<script>" + vbCrLf
            strScript += "function QuoteItemOpenWin(){" + vbCrLf
            strScript += "var str=window.showModalDialog('quoteItem.aspx?frmQuote_num=" & Trim(txt_Quotenum.Text) & "&frmCust_num=" & Trim(txt_Custnum.Text) & "&frmTax_code=" & Trim(Tax.Tax) & "',window,'dialogHeight: 640px;dialogWidth: 780px;dialogTop:230px;dialogLeft:230px;center:yes; help: Yes; status: No;return(true);')" + vbCrLf
            strScript += "if(str!=null)  window.location=str;" + vbCrLf
            ' Response.Redirect("quote.aspx?frmQuote_num=QAFE0029")
            strScript += "}" + vbCrLf
            strScript += "</script>" + vbCrLf
            RegisterClientScriptBlock("QuoteItemclientScript", strScript)
        End If
        btn_AddItem.Attributes.Add("onclick", "QuoteItemOpenWin()")
        '----------------------------------------------------------------------------end
    End Sub
    
    Private Sub dagr_ShowData_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dagr_ShowData.ItemDataBound
        If e.Item.ItemIndex <> -1 Then
            e.Item.Attributes.Add("onclick", "javascript:showModalDialog('quoteItem.aspx?frmQuote_num=" + txt_Quotenum.Text + "&frmQuote_line=" + e.Item.Cells(1).Text + "&frmCust_num=" & Trim(txt_Custnum.Text) & "&frmTax_code=" & Trim(Tax.Tax) & "',window,'dialogHeight: 650px;dialogWidth: 800px;dialogTop:230px;dialogLeft:230px;center:yes; help: Yes; status: No;');return(false);")
        End If
    End Sub说明：
    quoteItem.aspx 为模式对话框。
    
    Private Sub CmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSubmit.Click
        Dim CQuoteItem As New BLL.Quote.CQuoteItem
        Dim CQuote As New WEBSALE.quote
        Dim RefNewQuote_line As String ="", RefMsg As String=""
        Dim CCommon As New Common.CommonClass
        RefMsg = Check()
        If RefMsg <> "" Then
            CCommon.MsgBox(RefMsg, Me)
            Exit Sub
        End If
        PropertyViewToBus(CQuoteItem)
        RefMsg = CQuoteItem.Add(RefNewQuote_line)
        If RefMsg <> "" Then
            CCommon.MsgBox(RefMsg, Me)
            Exit Sub
        End If
        Response.Write("<script language='javascript'> window.close();</script>")
        Response.Write("<script language='javascript'> window.returnValue='quote.aspx?frmQuote_num=" + Request("frmQuote_num") + "'</script>")
     Response.Write("<script language='javascript'> window.parent.location.reload();</script>")
    End Sub
问题：
    quoteItem.aspx的提交按钮单击事件中，如何让quote.aspx
    重新再执行Display(Request("frmQuote_num"))方法 
    '//显示页面数据+网格明细数据
    如此可以实现，应该在哪写？？
    无从下手！！！
    怎么解决？困扰很长时间。