C# と VB.NET の質問掲示板

初めまして、オレンジネコと申します。

ここの掲示板に私と同じ質問をされている方がいましたので、その方の表をお借りしました。
ttp://bbs.wankuma.com/index.cgi?mode=al2&namber=4064&KLOG=4

開発環境：VB.net(2005pro)
DB：postgresql(ver1.8.2)

datagridview1
サイズ | カラー | サイズno| カラーno
-------------------------------------
1/1  　|  A   　|  1      | 1’
1/2  　|  B   　|  2      | 2’
1/2  　|  A   　|  3      | 3’
1/3  　|  C   　|  4      | 4’
1/4  　|  A   　|  5      | 5’
1/4  　|  C   　|  6      | 6’

↑上記を↓下記のように行いたいのです。 
   
ｻｲｽﾞ＼ｶﾗｰ| A    |   B  |  C   |
-------------------------------
1/1 　　 | 1 1’|      |      | 
1/2      | 3 3' | 2 2' |      |
1/3      |      |      | 4 4’|
1/4      | 5 5’|      | 6 6’|

何か手段はありませんでしょうか？

色々と自分なりに調べたりしたのですが、参考になるような内容のものが
なかったので質問させて頂きました。

宜しくお願い致します。

とりあえず、素朴な方法をば。

1. こんな DataTable をこさえておく。

ｻｲｽﾞ＼ｶﾗｰ| Aｻｲｽﾞ| Aｶﾗｰ | Bｻｲｽﾞ| Bｶﾗｰ | Cｻｲｽﾞ| Cｶﾗｰ 
--------------------------------------------------
1/1 　　 |      |      |      |      |      |
1/2      |      |      |      |      |      |
1/3      |      |      |      |      |      |
1/4      |      |      |      |      |      |

2. ↓のレコードを1件ずつ、↑の DataTable にあてはめていく。

サイズ | カラー | サイズno| カラーno
-------------------------------------
1/1  　|  A   　|  1      | 1’
1/2  　|  B   　|  2      | 2’
1/2  　|  A   　|  3      | 3’
1/3  　|  C   　|  4      | 4’
1/4  　|  A   　|  5      | 5’
1/4  　|  C   　|  6      | 6’

> ■No28851 (オレンジネコ さん) に返信
> いや別にDBのテーブルには何も変えなくていいのよ？
> 表示用に、DataTable クラスのインスタンスを用意するの。
> で、DBのテーブルから取得したデータを、表示にあうように DataTable オブジェクトに入れてあげるの。

案外、データテーブル作成する方法を知らない人が多いんだよね。

'データテーブル作成
Dim dtTest As DataTable = New DataTable

dtTest.Columns.Add("SizeAndColor", GetType(String))
dtTest.Columns.Add("A", GetType(String))
dtTest.Columns.Add("B", GetType(String))
dtTest.Columns.Add("C", GetType(String))


'データ作成　縦データを読んで横展開していく
Dim drAdd As DataRow

drAdd = dtTest.NewRow()
drAdd("SizeAndColor") = "1/1"
drAdd("A") = "1 1'"
drAdd("B") = ""
drAdd("C") = ""
dtTest.Rows.Add(drAdd)

'グリッドのDataSource に dtTest をセット
datagridview.DataSource = dtTest

みなさんありがとうございます。
おかげさまでなんとか横表示はできました。
ですが縦の列がうまくできませんでした…

現在の状況
datagridview
　　　｜カラー１｜カラー２｜カラー３｜カラー４｜…
------------------------------------------------
　　　｜　　赤　｜　　白　｜　黄　　｜　　茶　｜
------------------------------------------------
　　　｜　　　　｜　　　　｜　　　　｜　　　　｜
------------------------------------------------

↑これを↓このようにできたらいいと思っています。

　　　 ｜カラー１｜カラー２｜カラー３｜カラー４｜…
------------------------------------------------
サイズ1｜　　赤　｜　　白　｜　黄　　｜　　茶　｜
------------------------------------------------
サイズ2｜　　　　｜　　　　｜　　　　｜　　　　｜
------------------------------------------------

以下に今現在のコードを乗せておきます。

Dim aatable As New Data.DataTable
        aatable.Columns.Add("カラー1")
        aatable.Columns.Add("カラー2")
        aatable.Columns.Add("カラー3")
        aatable.Columns.Add("カラー4")
        aatable.Columns.Add("カラー5")

Dim aarow2 As Data.DataRow
        aarow2 = aatable.NewRow
        aarow2.Item(0) = TestDataSet.Tables(0).Rows(0).Item("testcolor")
        aarow2.Item(1) = TestDataSet.Tables(0).Rows(1).Item("testcolor")
        aarow2.Item(2) = TestDataSet.Tables(0).Rows(2).Item("testcolor")
        aarow2.Item(3) = TestDataSet.Tables(0).Rows(3).Item("testcolor")
        aarow2.Item(4) = TestDataSet.Tables(0).Rows(4).Item("testcolor")

aatable.Rows.Add(aarow2)
        Me.DataGridView1.DataSource = aatable

よろしくお願いします。

■No28906 (オレンジネコ さん) に返信
> おかげさまでなんとか横表示はできました。
> ですが縦の列がうまくできませんでした…

No28811 の例で言うと：

まず、縦に並んでいる元データがあるのですよね。
>>> サイズ | カラー | サイズno| カラーno
で、それを横並びにした
>>> サイズ | A | B | C | …
という DataTable の枠を作るところまでは完成、という事で良いですか?

結果を格納するための横長テーブルまでは完成しているのであれば、
あとは、そこに順番に格納していけば OK 。イメージとしてはこうかな…。


'=======================================================

'格納先を見つけやすいよう、主キーを定義しておく
結果テーブル.PrimaryKey = New DataColumn() {結果テーブル.Columns("サイズ")}

'元データを列挙
For Each rowSrc As DataRow In 元テーブル.Rows
　Dim key As String = CStr(rowSrc("サイズ"))
　Dim col As String = CStr(rowSrc("カラー"))
　Dim sizeNo As String = CStr(rowSrc("サイズno"))
　Dim colNo  As String = CStr(rowSrc("カラーno"))

　'格納先となるレコードを探す
　Dim rowDst As DataRow = 結果テーブル.Rows.Find(key)
　If rowDst Is Nothing Then
　　'まだ登録されていない行ならば、新行追加
　　rowDst = 結果テーブル.NewRow()
　　rowDst("サイズ") = key
　　結果テーブル.Rows.Add(rowDst)
　End If

　'データ格納
　rowDst(col) = sizeNo & " " & colNo
Next