關閉費勁的查詢視窗@_@10/8

關閉費勁的查詢視窗@_@10/8

關閉費勁的查詢視窗@_@10/8 做了一個頁面,有兩個textbox需要開新同樣的一個查詢視窗,選擇資料後將相關值返回到textbox中同時要關閉查詢的小視窗,但是在關閉查詢視窗時不夠順暢

開啟查詢視窗:<INPUT type='button' value='...' onclick='window.open('../base/Qrefer1.aspx?khcode=TextBox3','l10_80','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=500,height=440,left=320,top=140');'>

將查詢視窗的選擇值寫入父視窗的textbox並關閉: Private Sub Button6_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ServerClick

...

Dim rmark, khcode As String

For inta = 0 To dt.Rows.Count - 1

If dt.Rows(inta).Item(2) = True Then

rmark = rmark & dt.Rows(inta).Item(1) & ';'

End If

Next

If rmark <> '' Then

khcode = Request('khcode')

Response.Write('<script language=javascript>window.opener.Form1.' & khcode & '.value='' & rmark & '';</script>')

End If

Response.Write('<script language=javascript>window.close();</script>')

End Sub

p.s.由於要找出每次點選行的資料，所以上面的事件是在後台執行的,有時選擇後執行時要點多次才能關閉,很費勁的;而熱心網友在測試時寫在前台僅一次就可以了，差不多同樣的寫法，前後台有這樣大的差異嗎？

這個還有待於繼續研究。。。