Foxtable(狐表)用户栏目专家坐堂 → 请教老师,为什么有些列统计不了?


  共有3610人关注过本帖树形打印复制链接

主题:请教老师,为什么有些列统计不了?

美女呀,离线,留言给我吧!
悦颜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1440 威望:0 精华:0 注册:2013/10/31 20:26:00
请教老师,为什么有些列统计不了?  发帖心情 Post By:2015/3/25 21:03:00 [显示全部帖子]

 

 

Dim T As Integer = Date.Today.year
Dim m As Integer = Date.Today.Month
Dim dt5 As New Date(T, m, 1)
Dim dt6 As New Date(T, m, Date.DaysInMonth(T, m)) '获取本月的最后一天
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("应收明细")
Dim ot As DataTable = DataTables("出口明细")


If e.DataCol. Name ="销售" Then
    dr("内销收入")=dt.compute("sum(金额)","[开piao人]= '" & dr("销售") & "'and 时间标 >= #" & dt5 & "# And 时间标 <= #" & dt6 & "#")
    dr("内销毛利")=dt.compute("sum(利1)","[开piao人]= '" & dr("销售") & "'and 时间标 >= #" & dt5 & "# And 时间标 <= #" & dt6 & "#")
    dr("内销成本")=dt.compute("sum(成本合计)","[开piao人]= '" & dr("销售") & "'and 时间标 >= #" & dt5 & "# And 时间标 <= #" & dt6 & "#")
    dr("内销运费")=dt.compute("sum(国内运费)","[开piao人]= '" & dr("销售") & "'and 时间标 >= #" & dt5 & "# And 时间标 <= #" & dt6 & "#")
    dr("外销收入USD")=ot.compute("sum(USD金额)","[销售]= '" & dr("销售") & "'and 出口日期 >= #" & dt5 & "# And 出口日期 <= #" & dt6 & "#")
    dr("外销收入RMB")=ot.compute("sum(FOB合计CNY)","[销售]= '" & dr("销售") & "'and 出口日期 >= #" & dt5 & "# And 出口日期 <= #" & dt6 & "#")
    dr("外销成本")=ot.compute("sum(成本)","[销售]= '" & dr("销售") & "'and 出口日期 >= #" & dt5 & "# And 出口日期 <= #" & dt6 & "#")
    dr("外销运费")=ot.compute("sum(运费+保险费)","[销售]= '" & dr("销售") & "'and 出口日期 >= #" & dt5 & "# And 出口日期 <= #" & dt6 & "#")
    dr("外销毛利")=ot.compute("sum(利)","[销售]= '" & dr("销售") & "'and 出口日期 >= #" & dt5 & "# And 出口日期 <= #" & dt6 & "#")
    dr("当月销售收入")=dr("内销收入")+dr("外销收入RMB")
    dr("当销售成本")=dr("内销成本")+dr("外销成本")
    dr("当销售毛利")=dr("内销毛利")+dr("外销毛利")
    dr("当月运费")=dr("内销运费")+dr("外销运费")
    dr("内销平均毛利率")=dr("内销毛利")/dr("内销收入")
    dr("外销平均毛利率")=dr("外销毛利")/dr("外销收入RMB")
   
End If

[此贴子已经被作者于2015/3/25 21:20:42编辑过]

 回到顶部
美女呀,离线,留言给我吧!
悦颜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1440 威望:0 精华:0 注册:2013/10/31 20:26:00
  发帖心情 Post By:2015/3/25 21:20:00 [显示全部帖子]

好的,谢谢甜老师,图片点击可在新窗口打开查看


 回到顶部
美女呀,离线,留言给我吧!
悦颜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1440 威望:0 精华:0 注册:2013/10/31 20:26:00
  发帖心情 Post By:2015/3/25 21:31:00 [显示全部帖子]

查到原因了,多谢甜老师指点,我总是得先到老师这儿报个到才能把问题解决  :)     图片点击可在新窗口打开查看


 回到顶部