vb.net 2008 dataTable Sort（）函数和Select()函数用法实例

妖狐艹你老母 2022-06-17 00:37 416阅读 0赞

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

Return tmpDataTable

End Function