GridViewからのDataSet取得

' GridView1にはBindFiledとテンプレート列としてDropDownList,TextBox,CheckBoxを

' DataBindingsでSelectedValue,Text,CheckedにBind(項目名)として定義してあります。



	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



		' データバインド部

		Dim DataSetObj As New DataSet

		

		If Not IsPostBack Then

			' (ここにデータの取得処理が入っていると思ってください。)

			' 条件を元にDataAdpterからFillを実行してDataSetに与えています。

			GridView1.DataSource = DataSetObj

			DataBind()

		End If



	End Sub



    Protected Sub sakujo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sakujo.Click

		

		Dim RowIdxInt As Integer = 0    ' 現在選択されている行の位置

		Dim DataSetObj As New DataSet   ' GridView格納用DataSet

		Dim LoopCountInt As Integer = 0 ' ループカウンタ

		

		' 行位置取得

		RowIdxInt = CType(GridView1.SelectedIndex, Integer) ' これは取得できるのでGridViewがすべてNothingでは無さそう

		

		' 選択されていなければ処理を抜ける

		If(RowIdxInt = -1) Then

			Exit Sub

		End If

		

		' GridViewからデータセットを抜き出す



		'#間違い

		'DataSetObj = CType(GridView1.DataSource, Integer) ' ←これでNothingが返る

		DataSetObj = CType(GridView1.DataSource, DataSet) ' ←これでNothingが返る



		' 取得したDataSetを頭〜尻尾までLoop

		For LoopCountInt = 0 To (DataSetObj.Table(0).Rows.Count - 1) Then

			If(LoopCountInt = RowIdxInt) Then

				' 行の削除処理

				

			End If

		Next LoopCountInt

		

		' 指定行を削除したDataSetをGridViewのデータソースに指定

		GridView1.DataSource = DataSetObj

		DataBind()

	End Sub