質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.64%

.net DataTableに列を一括で追加する方法

受付中

回答 4

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 15K+

xo001122

score 13

お世話になっております。

表題の通り、DataTableへの列追加を一括で追加できないものか、と考えております。
"一括で追加"という表現が正しいのか分かりませんが...。

現在以下のようにして、同じレイアウトのDataTableを作成しています。

dim table1 as new datatable
table1.colums.add("teru1")
table1.colums.add("teru2")
table1.colums.add("teru3")

dim table2 as new datatable
table1.colums.add("teru1")
table1.colums.add("teru2")
table1.colums.add("teru3")

dim table3 as new datatable
table1.colums.add("teru1")
table1.colums.add("teru2")
table1.colums.add("teru3")


この追加方法だと同じことを何度も書かなくてはいけなく、コーディング量が増えるのであまり好みではないです。
そこで、列だけを宣言した列挙体のようなものを作成し、それをDataTableの列として追加できないかと考えました。

しかしいい方法が思い浮かばず、とりあえず以下のように列を追加したDataTableを作成し、それを突っ込むというちょっと強引?な方法をとっています。

dim temp_table as new datatable
temp_table.colums.add("retu1")
temp_table.colums.add("retu2")
temp_table.colums.add("retu3")

dim table1 as datatable = temp_table
dim table2 as datatable = temp_table
dim table3 as datatable = temp_table


1度作成した列のかたまりを流用するようなイメージです。
他にもっと良い(スマート or パフォーマンスが良い)方法があれば、ご教授いただけないでしょうか。

よろしくお願いします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

+3

DataTableのCopyとか、Cloneとか、DataTableのコレクションに対して処理を書き分けるとか、根本的にDataTableを使うのを止めるとか
そもそもDataTableを使ってて、パフォーマンスとか云々言っちゃダメな気がするのは私だけ?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/06/02 09:25

    list使った方がいい、みたいな記事見かけたことありますが…。今回はdatatableで考えたいです。よろしくお願いします。

    キャンセル

+1

パフォーマンスを求めるなら、下記の様にListを使うと良いと思います。
意外と遅い DataTable 、なので List を使うと 5 倍早くなる

個人的には、各カラムの定義も分かり易くなるので好きですね。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dataList As New List(Of testTable)
        Dim testTable As New testTable
        testTable.col1 = "あ"
        testTable.col2 = "い"
        testTable.col3 = "う"
        dataList.Add(testTable)

        DataGridView1.DataSource = dataList
    End Sub
End Class

Public Class testTable
    Public Property col1 As String
    Public Property col2 As String
    Public Property col3 As String
End Class

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

書き方は色々あると思います。

Sub Main()
    Dim table1 As DataTable = CreateTeruDataTable()
    Dim table2 As DataTable = CreateTeruDataTable()
    Dim table3 As DataTable = CreateTeruDataTable()
End Sub

Private Function CreateTeruDataTable() As DataTable
    Using dt As New DataTable()
        dt.Columns.Add("teru1")
        dt.Columns.Add("teru2")
        dt.Columns.Add("teru3")
        Return dt
    End Using
End Function
Using table1 As New DataTable(),
      table2 As New DataTable(),
      table3 As New DataTable()
    For Each tbl In {table1, table2, table3}
        tbl.Columns.Add("teru1")
        tbl.Columns.Add("teru2")
        tbl.Columns.Add("teru3")
    Next
End Using


あとはディープコピーするとか。

【追記】
最後まで書き込みを見てませんでした。
最後に書かれているやり方だと、table1~3が同一の実体を指す事になり、table1に対する変更などがtable2にもtable3にも起こることになりますが大丈夫でしょうか。

【追記2】
xo001122さんのコード

Sub Main()
    Dim temp_table As New DataTable
    temp_table.Columns.Add("retu1")
    temp_table.Columns.Add("retu2")
    temp_table.Columns.Add("retu3")

    Dim table1 As DataTable = temp_table
    Dim table2 As DataTable = temp_table
    Dim table3 As DataTable = temp_table

    ' table1に1行追加してそれぞれのDataTableの行数を表示
    table1.Rows.Add()
    Console.WriteLine("table1の行数:{0}", table1.Rows.Count)   ' 1行
    Console.WriteLine("table2の行数:{0}", table2.Rows.Count)   ' 1行
    Console.WriteLine("table3の行数:{0}", table3.Rows.Count)   ' 1行

    Console.ReadLine()
End Sub


私のコード。

Sub Main()
    Using table1 As New DataTable(),
          table2 As New DataTable(),
          table3 As New DataTable()
        For Each tbl In {table1, table2, table3}
            tbl.Columns.Add("teru1")
            tbl.Columns.Add("teru2")
            tbl.Columns.Add("teru3")
        Next

        ' table1に1行追加してそれぞれのDataTableの行数を表示
        table1.Rows.Add()
        Console.WriteLine("table1の行数:{0}", table1.Rows.Count)   ' 1行
        Console.WriteLine("table2の行数:{0}", table2.Rows.Count)   ' 0行
        Console.WriteLine("table3の行数:{0}", table3.Rows.Count)   ' 0行
    End Using

    Console.ReadLine()
End Sub

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/06/02 09:31

    上記のコードだとテーブルにテーブルを突っ込む形になるので、わたしコードと変わらないですね。それってパフォーマンス的にはどうなんでしょう…。
    下記のコードは参考にしたいですが、コード量に差はなさそうですね。(どんな書き方でも列の定義と使用テーブルの生成は要るのでこれ以上は減らしようがない気もしますが(^_^;)

    キャンセル

  • 2017/06/02 09:37

    追記にも書きましたが違うと思います。
    xo001122さんのコードは、変数はtable1~3の3つ、インスタンスは1つ。
    私のコードは、変数はtable1~3の3つ、インスタンスも3つ。
    です。

    キャンセル

  • 2017/06/02 09:38

    table1~3が同一インスタンスを指すポインタで良いということであれば私のコードが誤りです。

    キャンセル

  • 2017/06/02 10:00

    私の回答に追記しました。

    キャンセル

0

DataTableへの列追加を一括で追加できないものか、と考えております。 

列の追加だけが目的ではなく、その後何らかのデータソースからデータを取得して DataTable に行を追加するのですよね?

であれば、そのデータソースは何でしょう?

DataTable は ADO.NET ライブラリ内の中心的オブジェクトということで、データソースが SQL Server, MySQL, Access などのデータベースであれば、例えば ADO.NET の DataAdapter を使って、データソースから自動的に DataTable に列と行を追加してくれるので、今回質問者さんが問題としていることに悩む必要はないのですが。

データソースは CSV, XML などでも OK です。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.64%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る