这句代码不计算? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这句代码不计算?

共有17322人关注过本帖树形打印复制链接主题：这句代码不计算?

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

这句代码不计算? 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/25 10:33:00 [只看该作者]

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

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

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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