カウント方法：削除された行を除いたDatatable.rows.count

Question

私はデータセットから削除/削除された行を避けるためにこれを常に行っています。

For Each drX As DataRow In myDataset.Tables("CustInno").Rows 
    If drX.RowState <> DataRowState.Deleted Then 
     iRunRows += 1 
    End If 
Next 

これを行うには、より迅速な方法がありますか？

Answer 1

"Better"は主観的な用語です。 「高速」に関しては、何があってもループスルーしてRowStateをチェックしなければなりません。

Private Function ActiveRows(dt As DataTable) As Int32 
    ... your loop 
    Resturn iRunRows 
End Function 

それとも、拡張メソッドを使用することができます：

Dim activeRowCount = dt.AsEnumerable. 
     Count(Function(q) q.RowState <> DataRowState.Deleted). 

あなたは、少なくともコードを繰り返していないと、任意のテーブルの上にそれを使用することができ、そうすることの一つは、関数の中で、あなたのループを置くことであろう

ループが速い可能性は低いですが、どこかでループする必要がありますが、短くなります。

Answer 2

DataTableクラスは、DataRow.Stateに基づいて行セットを取得するさまざまな手段を提供します。

'DataTable.Select` Methodがおそらく最も単純です。

dt.Select("", "", DataViewRowState.CurrentRows)

別DataViewを使用し、それをRowStateFilterプロパティを設定することです。この例では、代わりにDataViewスタンドアロンインスタンスを作成するときにDataTable.DefaultViewプロパティを変更します。

Dim dt As New DataTable 

dt.Columns.Add("c1") 
For i As Int32 = 1 To 100 
    dt.Rows.Add(i) 
Next 
dt.AcceptChanges() 
Debug.Print(dt.Rows.Count.ToString()) ' prints 100 

For i As Int32 = 99 To 0 Step -2 
    dt.Rows.Item(i).Delete() 
Next 
Debug.Print(dt.Rows.Count.ToString()) ' prints 100 

dt.DefaultView.RowStateFilter = DataViewRowState.CurrentRows 
Dim count As Int32 = dt.DefaultView.Count 
Debug.Print(count.ToString()) ' prints 50 

' loop thru DataView rows 
For Each drv As DataRowView In dt.DefaultView 
    Dim dr As DataRow = drv.Row 
    Debug.Print(dr.Item(0).ToString()) 
Next 

これらのメソッドがルーピングソリューションよりも優れているかどうかは、オブザーバ側での主観的な呼び出しです。