以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：代码不执行的原因  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65488)
--  作者：gaoqr
--  发布时间：2015/3/17 11:09:00
--  请教：代码不执行的原因
Dim c As DataRow  = e.DataRow
Dim f1 As DataRow = DataTables("实体预算书").Find("清单 Is Not Null And QD= \'" & c("QD") & "\'")
Dim f2 As DataRow = DataTables("实体预算书").Find("类 = 3 And 项目编码 = \'" & c("项目编码") & "\'")  

If f1 IsNot Nothing Then
    Dim s01 As Double = DataTables("实体预算书").Compute("Sum(drf)", "清单 Is Null And QD = \'" & c("QD") & "\'")
    f1("drf") = s01  (这部分代码已执行)


Else If f2 IsNot Nothing Then
    Dim ss01 As Double = DataTables("实体预算书").Compute("Sum(drf)", "清单 Is Not Null And 项目编码 = \'" & c("项目编码") & "\'")
    f2("drf") = ss01  (这部分代码不执行)

End If



改为固定值，也不计算
Dim f2 As DataRow = DataTables("实体预算书").Find("类 = 3 And 项目编码 = \'1.01.1\'")  
Dim ss01 As Double = DataTables("实体预算书").Compute("Sum(drf)", "类 = 10  And 项目编码 = \'1.01.1\'")

几个小时，自己没有找出问题。请教指点
--  作者：Bin
--  发布时间：2015/3/17 11:11:00
--  
If f1 IsNot Nothing Then
    Dim s01 As Double = DataTables("实体预算书").Compute("Sum(drf)", "清单 Is Null And QD = \'" & c("QD") & "\'")
    f1("drf") = s01  (这部分代码已执行)
end if

 If f2 IsNot Nothing Then
    Dim ss01 As Double = DataTables("实体预算书").Compute("Sum(drf)", "清单 Is Not Null And 项目编码 = \'" & c("项目编码") & "\'")
    f2("drf") = ss01  (这部分代码不执行)

End If
--  作者：jialihaha
--  发布时间：2015/3/17 11:12:00
--  
if  else 分支，只会执行其中一个的
--  作者：Bin
--  发布时间：2015/3/17 11:13:00
--  
看2楼
--  作者：gaoqr
--  发布时间：2015/3/17 11:13:00
--  
谢谢！