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 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|