这是我的代码:
Sub myForm_Copy(ByVal sender As Object, ByVal e As System.EventArgs)
Dim myGrid1 As DataGrid = CType(myMP.FindControl("myGrid1"), DataGrid)
If (Session("PCWF_ID_One") <> Nothing Or Session("PCWF_ID_One") <> "") And myGrid1.SelectedIndex >= 0 Then
strSQL = "update PisCWorkFit set WorkItem = '" _
& myGrid1.Items.Item(myGrid1.SelectedIndex).Cells(1).Text _
& "' where PCWF_ID = " & Session("PCWF_ID_One")
DBSoft.ExecuteSQL(strSQL)
Response.Write("<script language=javascript> Parent.PisCWorkOne.href.refresh();</script>")
'Server.Transfer("PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne"))
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne") _
' & "',Target = 'PisCWorkOne');</script>")
ElseIf myGrid1.SelectedIndex >= 0 Then
strSQL = "insert into PisCWorkFit(PCWNum,WorkItem) values(" & Session("PCWNumOne") _
& ",'" & myGrid1.Items.Item(myGrid1.SelectedIndex).Cells(1).Text & "')"
DBSoft.ExecuteSQL(strSQL)
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=0',Target = 'PisCWorkOne');</script>")
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne") _
' & "',Target = 'PisCWorkOne');</script>")
Try
'ExecuteJSBlock(this, "window.parent.main.location.replace(XXX.aspx)")
'Dim strPCWNum As String = Session("PCWNumOne")
Response.Write("<script language=javascript> window.open(PisCWorkOne.window.location.reload();</script>") 'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & strPCWNum & "',Target = 'PisCWorkOne');</script>")
'Response.Write("<script language=javascript> Parent.PisCWorkOne.href.refresh();</script>")
Catch ex As Exception
Response.Write("<script language=javascript> window.alert('" _
& ex.Message & "'); </script>")
End Try
Else
Response.Write("<script language=javascript> window.alert('你没有选择常用词!'); </script>")
End If
End Sub
Sub myForm_Copy(ByVal sender As Object, ByVal e As System.EventArgs)
Dim myGrid1 As DataGrid = CType(myMP.FindControl("myGrid1"), DataGrid)
If (Session("PCWF_ID_One") <> Nothing Or Session("PCWF_ID_One") <> "") And myGrid1.SelectedIndex >= 0 Then
strSQL = "update PisCWorkFit set WorkItem = '" _
& myGrid1.Items.Item(myGrid1.SelectedIndex).Cells(1).Text _
& "' where PCWF_ID = " & Session("PCWF_ID_One")
DBSoft.ExecuteSQL(strSQL)
Response.Write("<script language=javascript> Parent.PisCWorkOne.href.refresh();</script>")
'Server.Transfer("PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne"))
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne") _
' & "',Target = 'PisCWorkOne');</script>")
ElseIf myGrid1.SelectedIndex >= 0 Then
strSQL = "insert into PisCWorkFit(PCWNum,WorkItem) values(" & Session("PCWNumOne") _
& ",'" & myGrid1.Items.Item(myGrid1.SelectedIndex).Cells(1).Text & "')"
DBSoft.ExecuteSQL(strSQL)
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=0',Target = 'PisCWorkOne');</script>")
'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & Session("PCWNumOne") _
' & "',Target = 'PisCWorkOne');</script>")
Try
'ExecuteJSBlock(this, "window.parent.main.location.replace(XXX.aspx)")
'Dim strPCWNum As String = Session("PCWNumOne")
Response.Write("<script language=javascript> window.open(PisCWorkOne.window.location.reload();</script>") 'Response.Write("<script language=javascript> window.open('" _
' & "PisCWorkOne.aspx?PCWNum=" & strPCWNum & "',Target = 'PisCWorkOne');</script>")
'Response.Write("<script language=javascript> Parent.PisCWorkOne.href.refresh();</script>")
Catch ex As Exception
Response.Write("<script language=javascript> window.alert('" _
& ex.Message & "'); </script>")
End Try
Else
Response.Write("<script language=javascript> window.alert('你没有选择常用词!'); </script>")
End If
End Sub
解决方案 »
- 不是我不思考,是思考过了,没思路
- asp.net获取select的值的问题 是text值 不是value
- asp问题,什么也没显示,这是怎么回事啊?
- 关于SqlDataReader.Read()游标的问题
- 服务器
- 服务器文件删除
- 遍历数据库,生成XML。
- 关于.net框架自动将一些属性转换成css样式表的疑惑????
- 关于Request.Params请教一下。
- 请问怎样取到Datalist里特定项的值?200分
- 关于用javascript实现类似word的编辑功能的问题。<object type=text/x-scriptlet VIEWASTEXT>怎么给他赋初值?
- 我在ultrawebgrid控件中定义了一列模板列,要求单击时触发后台事件,但不知为什么第一次点击时总要点击两次才会触发?
就是我第一个PisCWorkOne定位它没问题
定位是:
Response.Write("<script language=javascript> window.open('" _
& "PisCWorkOne.aspx?PCWNum=2004001',Target = PisCWorkOne');</script>")
点击另一个按钮也是定位这个:
Response.Write("<script language=javascript> window.open('" _
& "PisCWorkOne.aspx?PCWNum=2004001',Target = PisCWorkOne');</script>")
第二个它就不刷新了