下面是代码
Protected Sub grd_SelectedIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles grd.SelectedIndexChanging
        btn = CType(sender, Button)
        Dim row As GridViewRow = btn.Parent.Parent
        Dim lblName As String = CType(Me.grd.Rows(row.RowIndex).Cells(1).FindControl("lblHinMeiName"), Label).Text
        btnHinmeivalue = btn.Text
        lblHinmeiNamevalue = lblName
        Me.txtHinMei.Text = btnHinmeivalue        Me.txtHinMeiName.Text = lblHinmeiNamevalue
        If btn IsNot Nothing Then
            Dim sbScript As New System.Text.StringBuilder()
            sbScript.Append("")
            sbScript.Append("window.returnValue =" & Me.txtHinMei.ClientID & ".value + ',' +" & Me.txtHinMeiName.ClientID & ".value;")
            sbScript.Append("window.close();")
            btn.Attributes("onClick") = sbScript.ToString()
            sbScript.Append("")
        End If
    End Sub

解决方案 »

  1.   

    上面的事件我写错了
    是下面这个
    同样的问题
    大家帮我解决以下
    Protected Sub grd_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles grd.RowCommand
      

  2.   

       if (!IsPostBack)重复刷新
      

  3.   

        这是最新的代码
    不过好像和IsPostBack没有关系
    一览表内的按钮列,点击同一个按钮的第二次才关闭画面,每个按钮的第一次都不关闭画面
    Protected Sub grd_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles grd.RowCommand
            btn = CType(e.CommandSource, Button)
            Dim row As GridViewRow = btn.Parent.Parent
            Dim lblName As String = CType(Me.grd品名.Rows(row.RowIndex).Cells(1).FindControl("lblHinMeiName"), Label).Text
            btnHinmeivalue = btn.Text
            lblHinmeiNamevalue = lblName
            Me.txtHidCode.Text = btnHinmeivalue
            Me.txtHidname.Text = lblName
            If btn IsNot Nothing Then
                Dim sbScript As New System.Text.StringBuilder()
                sbScript.Append("")
                sbScript.Append("window.returnValue =" & txtHidCode.ClientID & ".value + ',' +" & txtHidname.ClientID & ".value;")
                sbScript.Append("window.close();")
                btn.Attributes("onClick") = sbScript.ToString()
                sbScript.Append("")
            End If
        End Sub