主题：表按日期排序后

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

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

怎么才能按照日期排序后的顺序循环