下面是代码
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
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
是下面这个
同样的问题
大家帮我解决以下
Protected Sub grd_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles grd.RowCommand
不过好像和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