以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这句代码不计算?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3279)
--  作者：blackzhu
--  发布时间：2009/6/25 10:28:00
--  这句代码不计算?
If e.DataCol.Name = "IO" e.datacol.name ="口岸" orelse e.datacol.name="色号" orelse e.datacol.name="色名" Then \'
    e.DataRow("XS") = DataTables("装箱单").Compute("Sum(XS)","[IO] = \'" & e.datarow("IO") & "\' And [口岸] = \'" & e.dataRow("口岸") & "\'And [色号] = \'" & e.dataRow("色号") & "\'And [色名] = \'" & e.dataRow("色名") & "\'And [运输方式] = \'" & e.dataRow("运输方式") & "\'")
End If
--  作者：yangming
--  发布时间：2009/6/25 10:33:00
--  
If e.DataCol.Name = "IO" e.datacol.name ="口岸
看红色部份,中间少了"orelse"
[此贴子已经被作者于2009-6-25 10:33:57编辑过]
--  作者：yangming
--  发布时间：2009/6/25 10:45:00
--  


改成这样试试,这里用Select Case 比IF更简洁

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "IO","口岸","色号","色名"
        dr("XS") = DataTables("装箱单").Compute("Sum(XS)","[IO] = \'" & dr("IO") & "\' And [口岸] = \'" & dr("口岸") & "\'And [色号] = \'" & dr("色号") & "\'And [色名] = \'" & dr("色名") & "\'And [运输方式] = \'" & dr("运输方式") & "\'")
End Select
--  作者：blackzhu
--  发布时间：2009/6/25 11:09:00
--  
以下是引用yangming在2009-6-25 10:33:00的发言：
If e.DataCol.Name = "IO" e.datacol.name ="口岸
看红色部份,中间少了"orelse"
[此贴子已经被作者于2009-6-25 10:33:57编辑过]

  这个我知道了,是我漏了.但是不计算.我看看上面的代码
--  作者：blackzhu
--  发布时间：2009/6/25 11:15:00
--  

还是不行
--  作者：blackzhu
--  发布时间：2009/6/25 11:22:00
--  

我知道问题所在了,我的条件没有完全输入.
--  作者：mr725
--  发布时间：2009/6/25 12:01:00
--  
以下是引用blackzhu在2009-6-25 11:22:00的发言：

我知道问题所在了,我的条件没有完全输入.

orelse e.datacol.name="运输方式"        ?