- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78560)
-- 发布时间：2015/12/11 15:54:00
-- 请教代码
大师：好！见实例。请问如何填列本年累计数的快易代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目48.zip |
-- 发布时间：2015/12/11 16:45:00
--
最快捷的代码是什么？数据较多20000行？
-- 发布时间：2015/12/11 17:43:00
--
Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("表A").Select("", "品名,月份,_Identify")
If pdr Is Nothing OrElse dr("品名") <> pdr("品名") Then
dr("本年累计") = dr("本月数量")
Else
dr("本年累计") = pdr("本年累计") + dr("本月数量")
End If
pdr = dr
Next
Tables("表A").sort = "品名,月份"
-- 发布时间：2015/12/11 19:06:00
--
同用遍列后用compute哪个快？
-- 发布时间：2015/12/11 21:10:00
--
循环是最快的，compute比较慢，而且，不可能每一行compute一次啊。