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