老师们，能帮忙看看红色代码吗？，如果现金流況列 得到的是现金明细表 的可控金额 的 变动日期当天的最后一行，是那错了啊
比如现金明细表的可控金额列的这一天有很多列，但是点击按钮，日统计表的现金流況只得到当天的最后一行数据，感谢老师 感谢
DataTables("日统计").DataRows.Clear '清楚表的内容
Dim DateTimePicker1 As WinForm.DateTimePicker = Forms("财务汇总窗口").Controls("DateTimePicker11")
Dim d1 As Date = new Date(DateTimePicker1.Value.Year,DateTimePicker1.Value.Month,1)
Dim d2 As Date = d1.AddMonths(1).AddDays(-1)
For i As Integer = 0 To d2.Day - 1
Dim dr As DataRow = DataTables("日统计").AddNew
dr("统计日期") = d1.AddDays(i)
Dim sum As Double = DataTables("订单附表").Compute("Sum(订单核算_毛利)","业务往来_订单日期=#" & d1.AddDays(i) & "#")
dr("收_油生意") = sum
desc = DataTables("现金明细").Compute("desc(可控金额)","变动日期=#" & d1.AddDays(i) & "#")
dr("现金流况") = desc
Next
加好友 
发短信
Post By：2019/4/21 10:49:00 [只看该作者]
