专家坐堂-在datacolchanged中的代码，错在哪里？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在datacolchanged中的代码，错在哪里？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7662)

--  作者：erdbeer
--  发布时间：2010/7/22 1:15:00
--  在datacolchanged中的代码，错在哪里？
If e.DataCol.Name = "客户代码" Then
    Dim Sum As Double
    Sum = DataTables("装柜明细").Compute("Sum(件数)","[客户代码] = \'" & e.DataRow("客户代码") & "\'" and "[地址] = \'" & e.DataRow("地址") & "\'")
    e.DataRow("件数") = Sum
End If

--  作者：shxiaoya
--  发布时间：2010/7/22 7:16:00
--

If e.DataCol.Name = "客户代码" Then
    Dim Sum As Double
    Sum = DataTables("装柜明细").Compute("Sum(件数)","[客户代码] = \'" & e.DataRow("客户代码") & "\' and [地址] = \'" & e.DataRow("地址") & "\'")
    e.DataRow("件数") = Sum
End If