以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教:计新增了多少行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64951)
--  作者：able
--  发布时间：2015/3/5 17:49:00
--  请教:计新增了多少行

Dim dt As DataTable = DataTables("订单")
Dim sum As Long
For Each dr As DataRow In dt.DataRows
If dr.RowState = DataRowState.Added Then
sum = sum + dr("数量")
End If
Next
Output.Show(Sum)


这是统计新增行的数量部总和.

我想统计新增了多少行.应该怎么做
--  作者：有点甜
--  发布时间：2015/3/5 17:53:00
--  
 Dim dt As DataTable = DataTables("表A")
Dim sum As Long
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Added Then
        sum = sum + 1
    End If
Next
Output.Show(Sum)