Public Shared Function PFn_SET_次工程設定(ByRef dt工程 As DataTable) As DataTable
Dim tmpDataTable As DataTable
Dim strExpression As String
Dim strExpressionTmp As String
dt工程.DefaultView().Sort = "アイテム区分 ASC," + _
"アイテムコード ASC," + _
"議事録履歴SEQ ASC," + _
"行番号 ASC," + _
"工程SEQ ASC," + _
"グループ ASC," + _
"工程順 ASC"
tmpDataTable = dt工程.DefaultView().ToTable()
For i As Integer = 0 To tmpDataTable.Rows.Count - 1
strExpression = "アイテム区分='" + tmpDataTable.Rows(i)("アイテム区分") + "'" + _
" AND アイテムコード='" + tmpDataTable.Rows(i)("アイテムコード") + "'" + _
" AND 議事録履歴SEQ='" + tmpDataTable.Rows(i)("議事録履歴SEQ") + "'" + _
" AND 行番号='" + tmpDataTable.Rows(i)("行番号") + "'" + _
" AND 工程SEQ='" + tmpDataTable.Rows(i)("工程SEQ") + "'" + _
" AND グループ='" + tmpDataTable.Rows(i)("グループ") + "'"
If i < dt工程.Rows.Count - 1 Then
strExpressionTmp = "アイテム区分='" + tmpDataTable.Rows(i + 1)("アイテム区分") + "'" + _
" AND アイテムコード='" + tmpDataTable.Rows(i + 1)("アイテムコード") + "'" + _
" AND 議事録履歴SEQ='" + tmpDataTable.Rows(i + 1)("議事録履歴SEQ") + "'" + _
" AND 行番号='" + tmpDataTable.Rows(i + 1)("行番号") + "'" + _
" AND 工程SEQ='" + tmpDataTable.Rows(i + 1)("工程SEQ") + "'" + _
" AND グループ='" + tmpDataTable.Rows(i + 1)("グループ") + "'"
If dt工程.Select(strExpression).Count > 1 AndAlso strExpression.Equals(strExpressionTmp) Then
tmpDataTable.Rows(i)("次工程SEQ") = tmpDataTable.Rows(i + 1)("工程SEQ")
tmpDataTable.Rows(i)("次工程グループ") = tmpDataTable.Rows(i + 1)("グループ")
tmpDataTable.Rows(i)("次工程工程順") = tmpDataTable.Rows(i + 1)("工程順")
Else
strExpression = "アイテム区分='" + tmpDataTable.Rows(i)("アイテム区分") + "'" + _
" AND アイテムコード='" + tmpDataTable.Rows(i)("アイテムコード") + "'" + _
" AND 議事録履歴SEQ='" + tmpDataTable.Rows(i)("議事録履歴SEQ") + "'" + _
" AND 行番号='" + tmpDataTable.Rows(i)("行番号") + "'" + _
" AND 工程SEQ ='" + Decimal.Add(CDec(tmpDataTable.Rows(i)("工程SEQ")),1).ToString + "'"
If dt工程.Select(strExpression).Count = 1 Then
Dim arr As DataRow() = dt工程.Select(strExpression)
tmpDataTable.Rows(i)("次工程SEQ") = arr(0)("工程SEQ")
tmpDataTable.Rows(i)("次工程グループ") = arr(0)("グループ")
tmpDataTable.Rows(i)("次工程工程順") = arr(0)("工程順")
End If
End If
End If
Next
Return tmpDataTable
End Function