以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表按日期排序后  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59965)
--  作者：jswjyjf
--  发布时间：2014/11/14 22:33:00
--  表按日期排序后

表按日期排序后 这样循环还是按原来的表顺序

Dim ss As Double
For Each dr As DataRow In DataTables("往来明细帐").DataRows
    ss=DataTables("往来明细帐").Compute("Sum(借方金额)","[日期] <=#" & dr("日期") & "#")
  msgbox(dr("日期"))         
   Next

 

 

怎么才能按照日期排序后的顺序循环
--  作者：e-png
--  发布时间：2014/11/14 23:22:00
--  

要不你用 For Each dr As Row In Tables("往来明细帐").Rows