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