p.124 List9-2(MyToDoItem.aspx.vb)内のCalendar1_SelectionChangedメソッドについて
Calendar1_SelectionChangedメソッド内の以下のコード(List9-2[5])を訂正します。
【誤】
If RadioButtonStartDay.Checked Then
TextBoxStartDay.Text = _
DirectCast(sender, Calendar).SelectedDate._
ToShortDateString()
If RadioButtonEndDay.Checked Then
TextBoxEndDay.Text = _
DirectCast(sender, Calendar).SelectedDate._
ToShortDateString()
【正】
If RadioButtonStartDay.Checked Then _
TextBoxStartDay.Text = _
DirectCast(sender, Calendar).SelectedDate._
ToShortDateString()
If RadioButtonEndDay.Checked Then _
TextBoxEndDay.Text = _
DirectCast(sender, Calendar).SelectedDate._
ToShortDateString()
※「Then」のあとの「_（アンダーバー）」が抜けておりました。
p.184 List13-4(Calc.aspx.vb)内のbtnPause_Clickメソッドについて
btnPause_Clickメソッド内の以下のコード(List13-4[1])を訂正します。
【誤】SetCookie(Session(“total”).ToString(),
DateTime.Now.AddSeconds(600))
【正】SetCookie(Convert.ToInt32(Session(“total”)),
DateTime.Now.AddSeconds(600))
※現在のコードのままでも、Visual Basicの暗黙の型変換によってString型からInteger型に変換されるので、コンパイルも通りますし動作もします。しかし、暗黙の型変換はコードの安全性の点から推奨されません。VBのコードの先頭でOption Strict Onを宣言すると、暗黙の型変換は行われないのでコンパイルエラーになってしまいます。
※初出時、【正】【誤】が逆になっていたのを修正いたしました。[2007/09/28]
p.321 1行目のコントロール名について
【誤】同様に、Insert.aspxページからGridViewコントロールとこのGridViewコントロールが～
【正】同様に、Insert.aspxページからDetailsViewコントロールとこのDetailsViewコントロールが～
※コントロール名を「GridView」から「DetailsView」に修正いたしました。
p.400 List26-11のファイル名について
List26-11のファイル名を訂正します。
【誤】List26-11 searchResult.aspxのコード
【正】List26-11 searchResult.aspx.vbのコード
※ファイル名に「.vb」が抜けておりました。
p.404 6行目のファイル名について
p.404 6行目のファイル名を訂正します。
【誤】～、targetDaty（DateTime型）、～
【正】～、targetDay（DateTime型）、～
※変数名に余分な「t」が入っておりました。
p.483 List31-12について
List31-12を訂正します。
【誤】
Protected Sub Button1_Click(ByVal sender As Object, –
ByVal e As System.EventArgs) Handles Button1.Click
’購入の手続きはDataAccessクラスのメソッドを利用する
Dim result As Boolean
Dim pid As Integer = CType(ViewState(“PID”), Integer)
Dim qty As Integer = Int32.Parse(TextBox1.Text)
If qty = 0 Then Exit Sub
result = DataAccess.InsertOrder(Session(“TxID”).ToString,–
Session(“購入者”).ToString(), pid, qty)1
’カートに入れる処理が成功したら、カートの内容を表示するページへリダイレクトする
If result Then Server.Transfer(“Cart.aspx”)
End Sub
【正】
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
’購入の手続きはDataAccessクラスのメソッドを利用する
Dim result As Boolean
Dim pid As Integer = CType(ViewState(“PID”), Integer)
Dim qty As Integer = Int32.Parse(TextBox1.Text)
If qty = 0 Then Exit Sub
result = DataAccess.InsertOrder(Session(“TxID”).ToString, _
Session(“購入者”).ToString(), pid, qty)
’カートに入れる処理が成功したら、カートの内容を表示するページへリダイレクトする
If result Then Server.Transfer(“Cart.aspx”)
End Sub
※「_（アンダーバー）」であるべきところが「-（マイナス）」になっておりました。
※余分な「1」が入っておりました。
p.490 Thanks.aspx（デザイン）について
各項目のID名を訂正します。
【誤】（上から）
Label1
Label2
Label4
LabelTotal
Table
GridView1
Horizontal Rule
LabelTxID
SqlDataSource1
【正】（上から）
Label1
Label2
Label4
LabelTxID
Table
GridView1
Horizontal Rule
LabelTotal
SqlDataSource1
※「LabelTotal」と「LabelTxID」の位置が逆でした。
p.496 下から2行目について
説明文を訂正します。
【誤】
Default.aspxはこれまでテンプレートが作成したもののまま手つかずでしたが、
【正】
Default.aspxは、これまでテンプレートが作成したものがそのまま手つかずでしたが、
※脱字を修正いたしました。
