DataTables("经营汇总").DataRows.Clear '清楚表的内容
'Dim d1 As Date = e.Form.Controls("DateTimePicker6").Value
If d1 = Nothing Then "订单日期" = Date.Today
Dim Cols1() As String = {"订单日期","订单核算_销售额","订单核算_采购价","订单核算_利润"}
Dim Cols2() As String = {"发生时间","销额统计","采购价格","剩余利润"}
For Each dr1 As DataRow In DataTables("订单附表").Select(filter1 & " and 订单核算_销售额 <> 0")
'For Each dr1 As DataRow In DataTables("订单附表").Select(filter1) ' 加上零 全部生成
Dim dr2 As DataRow = DataTables("经营汇总").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
If d1 = Nothing Then "支出日期" = Date.Today
Dim Cols3() As String = {"支出日期","支出金额"}
Dim Cols4() As String = {"发生时间","收回资金"}
For Each dr1 As DataRow In DataTables("回款记录").Select(filter2 & " And 支出金额 <> 0")
'For Each dr1 As DataRow In DataTables("支出账目").Select(filter2)
Dim dr2 As DataRow = DataTables("经营汇总").AddNew()
For i As Integer = 0 To Cols3.Length -1
dr2(Cols4(i)) = dr1(Cols3(i))
Next
Next
Dim i1 As Integer = 0
For Each dr As DataRow In DataTables("经营汇总").Select("", "发生时间")
dr.baseRow("_Sortkey") = i1
i1+=1
Next
'上面代码是按照时间生成的代码
加好友 
发短信
Post By：2016/8/17 16:05:00 [只看该作者]
