vb.net 2008 datatable 数据填充实例

以你之姓@ 2022-06-17 00:37 183阅读 0赞

Public Shared Function PFn\_TEST() As DataTable

Dim tmpDataTable As DataTable

Dim row As DataRow  
        Dim dt工程 As DataTable = New DataTable()

Dim column1 As DataColumn = New DataColumn()  
        column1.ColumnName = "アイテム区分"  
        Dim column2 As DataColumn = New DataColumn()  
        column2.ColumnName = "アイテムコード"  
        Dim column3 As DataColumn = New DataColumn()  
        column3.ColumnName = "議事録履歴SEQ"  
        Dim column4 As DataColumn = New DataColumn()  
        column4.ColumnName = "行番号"  
        Dim column5 As DataColumn = New DataColumn()  
        column5.ColumnName = "工程SEQ"  
        Dim column6 As DataColumn = New DataColumn()  
        column6.ColumnName = "グループ"  
        Dim column7 As DataColumn = New DataColumn()  
        column7.ColumnName = "工程順"  
        Dim column8 As DataColumn = New DataColumn()  
        column8.ColumnName = "次工程への数量"  
        Dim column9 As DataColumn = New DataColumn()  
        column9.ColumnName = "次工程SEQ"  
        Dim column10 As DataColumn = New DataColumn()  
        column10.ColumnName = "次工程グループ"  
        Dim column11 As DataColumn = New DataColumn()  
        column11.ColumnName = "次工程工程順"

dt工程.Columns.Add(column1)  
        dt工程.Columns.Add(column2)  
        dt工程.Columns.Add(column3)  
        dt工程.Columns.Add(column4)  
        dt工程.Columns.Add(column5)  
        dt工程.Columns.Add(column6)  
        dt工程.Columns.Add(column7)  
        dt工程.Columns.Add(column8)  
        dt工程.Columns.Add(column9)  
        dt工程.Columns.Add(column10)  
        dt工程.Columns.Add(column11)

row = dt工程.NewRow()  
        row("アイテム区分") = 1  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "1"  
        row("グループ") = "G1"  
        row("工程順") = "2"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "1"  
        row("グループ") = "G1"  
        row("工程順") = "3"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "1"  
        row("グループ") = "G2"  
        row("工程順") = "3"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "2"  
        row("グループ") = "G3"  
        row("工程順") = "1"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "1"  
        row("グループ") = "G1"  
        row("工程順") = "4"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F07"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "4"  
        row("グループ") = "X3"  
        row("工程順") = "1"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F07"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "5"  
        row("グループ") = "X3"  
        row("工程順") = "1"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F07"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "4"  
        row("グループ") = "X3"  
        row("工程順") = "3"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

row = dt工程.NewRow()  
        row("アイテム区分") = "1"  
        row("アイテムコード") = "F06"  
        row("議事録履歴SEQ") = "1"  
        row("行番号") = "01"  
        row("工程SEQ") = "3"  
        row("グループ") = "G3"  
        row("工程順") = "1"  
        row("次工程への数量") = DBNull.Value  
        row("次工程SEQ") = DBNull.Value  
        row("次工程グループ") = DBNull.Value  
        row("次工程工程順") = DBNull.Value  
        dt工程.Rows.Add(row)

tmpDataTable = dt工程  
        Return tmpDataTable

End Function