共7 条记录, 每页显示 10 条, 页签: [1]

标题：这句代码不计算?

1楼

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

2楼

yangming 发表于：2009/6/25 10:33:00

If e.DataCol.Name = "IO" e.datacol.name ="口岸
看红色部份,中间少了"orelse"

[此贴子已经被作者于2009-6-25 10:33:57编辑过]

3楼

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

4楼

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编辑过]

这个我知道了,是我漏了.但是不计算.我看看上面的代码

5楼

blackzhu 发表于：2009/6/25 11:15:00

还是不行

6楼

blackzhu 发表于：2009/6/25 11:22:00

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

7楼

mr725 发表于：2009/6/25 12:01:00

以下是引用blackzhu在2009-6-25 11:22:00的发言：

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

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

共7 条记录, 每页显示 10 条, 页签: [1]