以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64550)

--  作者:风声
--  发布时间:2015/2/23 9:57:00
--  [求助]统计

老师新年好

 

下面的统计代码报错找不到客户ID

 

 

Select Case e.DataCol.Name
 Case  "客户ID"
        Dim Filter As String  = "客户ID =  " & e.DataRow("客户ID")
        e.DataRow("销售_数量") = DataTables("出库明细").Compute("Sum(出库_数量)", Filter)
        e.DataRow("销售_金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter)
        e.DataRow("开票_开票金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开票 = True")
       \' \'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开票_金额")
End Select


此主题相关图片如下:统计.png
按此在新窗口浏览图片
[此贴子已经被作者于2015/2/23 10:01:11编辑过]

--  作者:有点甜
--  发布时间:2015/2/23 11:56:00
--  
Select Case e.DataCol.Name
     Case  "客户ID"
        Dim Filter As String  = "客户ID = \'" & e.DataRow("客户ID") & "\'"
        e.DataRow("销售_数量") = DataTables("出库明细").Compute("Sum(出库_数量)", Filter)
        e.DataRow("销售_金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter)
        e.DataRow("开票_开票金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开票 = True")
        \'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开票_金额")
End Select

--  作者:风声
--  发布时间:2015/2/23 15:18:00
--  

谢谢老师,上面的问题解决了。下面有出问题了


图片点击可在新窗口打开查看此主题相关图片如下:统计.png
图片点击可在新窗口打开查看
这个报错对话框是什么意思


--  作者:有点甜
--  发布时间:2015/2/23 15:21:00
--  

 贴出对应出错的代码,调试技巧看一下 http://www.foxtable.com/help/topics/1485.htm

 


--  作者:风声
--  发布时间:2015/2/23 15:46:00
--  

Select Case e.DataCol.Name
    Case "已开票"
        If e.OldValue <> e.NewValue Then
            Dim pr As DataRow
            pr = DataTables("客户往来动态").Find("[客户ID] = " & e.DataRow("客户ID") )
            If pr IsNot Nothing Then
                DataTables("客户往来动态").DataCols("客户ID").RaiseDataColChanged(pr)
            End If
        End If
End Select

 

老师,上面这个代码有问题吗?


--  作者:有点甜
--  发布时间:2015/2/23 15:47:00
--  

 呃,你要变通

 

pr = DataTables("客户往来动态").Find("[客户ID] = \'" & e.DataRow("客户ID") & "\'")


--  作者:风声
--  发布时间:2015/2/23 16:03:00
--  
谢谢老师好了