tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: DataSetコピー
投稿日: 2007/03/29(Thu) 15:01
投稿者るしぇ
同じ方法のはずですが、
CPU 1.6GHz で8秒前後でした。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sTime0 As DateTime
        Dim eTime0 As DateTime
        Dim objDS1, objDS2 As DataSet

        objDS1 = New DataSet
        objDS1.Tables.Add(MakeDataTable)

        objDS2 = New DataSet
        objDS2.Tables.Add()

        sTime0 = Now
        objDS2.Merge(objDS1)
        eTime0 = Now
        MessageBox.Show(eTime0.Subtract(sTime0).TotalSeconds & " 秒かかりました。")

        Me.DataGrid1.DataSource = objDS2
    End Sub

    Private Function MakeDataTable() As DataTable
        Dim objDT As New DataTable
        Dim objColItem As DataColumn
        Dim objDataRow As System.Data.DataRow

        ' カラムの設定
        For col As Integer = 0 To 1000 - 1
            objColItem = New DataColumn("カラム" & col.ToString, Type.GetType("System.Single"))
            objDT.Columns.Add(objColItem)
        Next

        For row As Integer = 0 To 700 - 1
            objDataRow = objDT.NewRow()

            For col As Integer = 0 To 1000 - 1
                objDataRow.Item(col) = row + col
            Next

            objDT.Rows.Add(objDataRow)
        Next

        Return objDT
    End Function

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。