以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:计新增了多少行  (http://foxtable.net/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)