|
分類:[ASP.NET (VB)]
いつもお世話になっております。
他案件で、解決済みにもなっていないのですが それとはまた別件での質問になります。
◇やりたいこと listBoxで1が選択された時に、confirmでメッセージを出し、 そのOkならA処理、キャンセルならB処理をさせたいのです。
色々と、調べたのですがエラーになるわけでもなく、その処理ができません。 書き方が違うのか・・・?
Jcs030.vb If Left(Me.skubun.Text, 1) Then Dim msg As String msg = ("新規に受注番号を取得して宜しいですか?") Dim Script As String = _ "<SCRIPT LANGUAGE=""javaScript"">" _ & "var kubun = confirm(""" & msg & """);" _ & "if (kubun == true){" _ & "jNo_txt.Text = jNo;" _ & "torimatome_txt.Focus();}" _ & "else{" _ & "jNo_txt.ReadOnly = False;" _ & "jNo_txt.Focus();" _ & "</script>" ClientScript.RegisterStartupScript(Me.GetType, "kubun", Script) Else jNo_txt.ReadOnly = False jNo_txt.Focus()
と、記述はしてるのですが・・・ エラーもでなければ思った通りのことはできてません。 そこで・・・
Dim jnotxt As String Dim jno As String Dim Script As String = "" Script = "<SCRIPT language='JavaScript'>" & _ "var bolFlg = confirm(""" & msg & """);" & _ "if(bolFlg == true){" & _ " """ & "jNo_txt.Text=" & jnotxt & """" = """" & "jNo=" & jno & """;" & _ "}" & _ "</SCRIPT>"
Page.ClientScript.RegisterClientScriptBlock(Me.GetType, "kubun", Script) Else jNo_txt.ReadOnly = False jNo_txt.Focus() End If
と、記しましたが(javascriptは小文字認識ということがわかり・・・)・・・ やっぱりエラーになるわけでもなく・・・
ASP.NET(VB)2005です。 vb側の処理記述をご教示願います。
よろしくお願いいたします。
|