「未編集(いろいろコントロール説明無し自分専用)」の編集履歴(バックアップ)一覧はこちら
未編集(いろいろコントロール説明無し自分専用) - (2008/01/31 (木) 13:48:23) の1つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
#highlight(vb.net){{
Partial Class _Default
Inherits System.Web.UI.Page
'一括更新
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cboxControl
Dim dlistControl As DropDownList = New DropDownList
Dim Colum1 As String
Dim Colum2 As String
Dim Colum3 As String
Dim Colum4 As String
Dim PostData1 As String = ""
Dim PostData2 As String = ""
Dim PostData3 As String = ""
Dim PostData4 As String = ""
Dim Flag As Boolean = False
Dim I As Integer
'GridViewの行数分ループする
For I = 0 To GridView1.Rows.Count - 1
'checkboxのコントロールの取得
cboxControl = GridView1.Rows(I).FindControl("checkbox1")
'ドロップダウンリストのコントロールの取得
dlistControl = GridView1.Rows(I).FindControl("DropDownList1")
'Checkboxのチェック情報を調査
If cboxControl.checked = True Then
'行ごとのカラムデータを取得
Colum1 = GridView1.Rows(I).Cells(1).Text + vbTab
Colum2 = GridView1.Rows(I).Cells(2).Text + vbTab
Colum3 = GridView1.Rows(I).Cells(3).Text + vbTab
Colum4 = dlistControl.SelectedItem.Text
'デバッグ表示
Response.Write(Colum1 & vbTab)
Response.Write(Colum2 & vbTab)
Response.Write(Colum3 & vbTab)
Response.Write(Colum4 & "<br />")
'初回通過時は先頭に,をつけない。
If Flag = False Then
'空じゃなければ通過する
If Colum1 <> "" Then
'POST送信用に文字列連結(初回なのでカンマ無し)
PostData1 &= Colum1
PostData2 &= Colum2
PostData3 &= Colum3
PostData4 &= Colum4
Flag = True
End If
Else
'POST送信用に文字列連結(2回目以降なのでカンマ有)
PostData1 &= "," & Colum1
PostData2 &= "," & Colum2
PostData3 &= "," & Colum3
PostData4 &= "," & Colum4
End If
End If
Next
'更新結果が無ければエラーメッセージを出力しあれば更新処理を行う。
If Flag = False Then
Response.Write("チェックがついていません。")
Else
Dim St As String
'###########################################################################################
'更新フォームに値を送信するJavaScript
'別ウインドウを開き、GridViewの値をPOSTで送信する
'###########################################################################################
St = "<form name='driftForm' id='driftForm' action='default2.aspx' method='post' >" & vbCrLf
St &= "<input type='hidden' name='番号' value='" & PostData1 & "' />" & vbCrLf
St &= "<input type='hidden' name='状態選択' value='" & PostData2 & "' />" & vbCrLf
St &= "<input type='hidden' name='メールアドレス' value='" & PostData3 & "' />" & vbCrLf
St &= "<input type='hidden' name='担当者ID' value='" & PostData4 & "' />" & vbCrLf
St &= "<input type='hidden' name='処理日' value='' />" & vbCrLf
St &= "</form>" & vbCrLf
St &= "<SCRIPT LANGUAGE='javascript'>" & vbCrLf
St &= "window.open('default2.aspx','winPopUp','width=640,height480=,toolbar=no,resizable=yes,scrollbars=yes');" & vbCrLf
St &= "var obj = new Object();" & vbCrLf
St &= "obj = document.getElementById('driftForm');" & vbCrLf
St &= "obj.target = 'winPopUp';" & vbCrLf
St &= "document.driftForm.submit()" & vbCrLf
St &= "</SCRIPT>" & vbCrLf
Response.Write(St)
End If
End Sub
'個別更新
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim cboxControl
Dim CurrentbuttonID As String
Dim buttonID As String
Dim dlistControl As DropDownList = New DropDownList
Dim Colum1 As String
Dim Colum2 As String
Dim Colum3 As String
Dim Colum4 As String
'送信イベントからIDを取得
buttonID = sender.ClientId()
Dim I As Integer
'GridViewの行数分ループする
For I = 0 To GridView1.Rows.Count - 1
'checkboxのコントロールの取得
cboxControl = GridView1.Rows(I)
'現在処理中の行のボタンのIDを取得
CurrentbuttonID = CType(cboxControl.ClientID, String) + "_Button2"
'ドロップダウンリストのコントロールの取得
dlistControl = GridView1.Rows(I).FindControl("DropDownList1")
'イベントハンドラに送られてきたbuttonIDと一致したボタンがある行を対象に処理
If CurrentbuttonID = buttonID Then
GridView1.Rows(i).Cells.
'行ごとのカラムデータを取得
Colum1 = GridView1.Rows(I).Cells(1).Text + vbTab
Colum2 = GridView1.Rows(I).Cells(2).Text + vbTab
Colum3 = GridView1.Rows(I).Cells(3).Text + vbTab
Colum4 = dlistControl.SelectedItem.Text
'デバッグ表示
Response.Write(Colum1 & vbTab)
Response.Write(Colum2 & vbTab)
Response.Write(Colum3 & vbTab)
Response.Write(Colum4 & "<br />")
Dim St As String
'###########################################################################################
'更新フォームに値を送信するJavaScript
'別ウインドウを開き、GridViewの値をPOSTで送信する
'###########################################################################################
St = "<form name='driftForm' id='driftForm' action='default2.aspx' method='post' >" & vbCrLf
St &= "<input type='hidden' name='番号' value='" & Colum1 & "' />" & vbCrLf
St &= "<input type='hidden' name='状態選択' value='" & Colum2 & "' />" & vbCrLf
St &= "<input type='hidden' name='メールアドレス' value='" & Colum3 & "' />" & vbCrLf
St &= "<input type='hidden' name='担当者ID' value='" & Colum4 & "' />" & vbCrLf
St &= "<input type='hidden' name='処理日' value='' />" & vbCrLf
St &= "</form>" & vbCrLf
St &= "<SCRIPT LANGUAGE='javascript'>" & vbCrLf
St &= "window.open('default2.aspx','winPopUp','width=640,height480=,toolbar=no,resizable=yes,scrollbars=yes');" & vbCrLf
St &= "var obj = new Object();" & vbCrLf
St &= "obj = document.getElementById('driftForm');" & vbCrLf
St &= "obj.target = 'winPopUp';" & vbCrLf
St &= "document.driftForm.submit()" & vbCrLf
St &= "</SCRIPT>" & vbCrLf
Response.Write(St)
End If
Next
End Sub
'全選択するメソッド
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim I As Integer
Dim hantei
Dim dlist As DropDownList = New DropDownList
Dim key As String
key = sender.ClientId()
For I = 0 To GridView1.Rows.Count - 1
hantei = GridView1.Rows(I).FindControl("checkbox1")
hantei.checked = True
Next
End Sub
'全選択解除するメソッド
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim I As Integer
Dim hantei
Dim dlist As DropDownList = New DropDownList
Dim key As String
key = sender.ClientId()
For I = 0 To GridView1.Rows.Count - 1
hantei = GridView1.Rows(I).FindControl("checkbox1")
hantei.checked = False
Next
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class
}}
表示オプション
横に並べて表示:
変化行の前後のみ表示: