DataGridViewの複数の指定行を取込には

質問

Win2003SERVER(R2)+SRLServer2000+VB.NET2008の
組合せでやっています。
VBは初心者です。

今、DataGridView1で下記の様なデーターがフォームに
表示されています。

A B C
1 11 AAA
2 22 BBB
3 33 CCC
5 55 DDD
6 66 EEE

この画面でCtrlキーを押しながら
Aの列の 1 3 5の列を選択しました。

その状態でBotan1を押したとき

Bの列の 11 33 55 を変数
B(1) B(2) B(3)
に呼込みたいのですが
どうしたらいいのでしょうか

1行だけの場合、
B(1)=Me.DataGridView1(1, Me.DataGridView1.CurrentCell.RowIndex).Value
をで良いと思っていますが

複数の場合はどうしたらいいのでしょうか。
ご存知の方、教えてください。

回答No.1

NoMusicNoLife49 · ベストアンサー

こんにちは。NoMusicNoLife49 と申します。

私なりに、質問内容を解釈し、サンプルを作成して
みました。ご参考ください。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数宣言
Dim WkArrayList As ArrayList = Nothing
Dim str値取得列名 As String = "B"
Dim str選択列名 As String = "A"
Dim str値 As String = ""
Dim int配列要素数 As Integer = 0
Dim 配列B() As String = Nothing
Dim str確認Msg As String = ""

Try
'ワークリスト初期化
WkArrayList = New ArrayList

'グリッド行をフェッチ
For Each DGVRow As DataGridViewRow In Me.DataGridView1.Rows
If DGVRow.Cells(str選択列名).Selected = True Then
'B列の値取得
str値 = DGVRow.Cells(str値取得列名).Value

'取得した値をワークリストに登録
WkArrayList.Add(str値)
End If
Next

'要素数を取得
int配列要素数 = WkArrayList.Count - 1

'配列"B"の要素数を変更
配列B = New String(int配列要素数) {}

'ワークリストの内容を一次元配列に設定
WkArrayList.CopyTo(配列B)

'確認メッセージ作成
For int要素番号 As Integer = 0 To 配列B.Length - 1
str確認Msg += "配列" + str値取得列名 + "(" + int要素番号.ToString + ")=" + 配列B(int要素番号).ToString + vbCrLf
Next

If str確認Msg.Count > 0 Then
'確認メッセージ出力
MsgBox(str確認Msg)
End If

Catch ex As Exception
str確認Msg = ex.Message

MsgBox(str確認Msg, MsgBoxStyle.Critical)
End Try
End Sub

お礼

返信遅れてすいません。
実際にやってみますので
もう少し時間をください。