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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教：不知哪里出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63787)

--  作者：散客
--  发布时间：2015/1/28 18:35:00
--  求教：不知哪里出错

Dim nf As WinForm.ComboBox = e.Form.Controls("年份选择")
Dim yf As WinForm.ComboBox = e.Form.Controls("月份选择")

Dim y As Integer = cint(nf.Text)
Dim m As Integer = cint(yf.Text)
Dim dt0 As new Date(y-1,12,31)

Dim dt1 As New Date(y, 1, 1)

Dim dt2 As new Date(y, m, 1)

Dim dt3 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
For Each R1 As Row In Tables("基建及工程项目备案表").Rows
Dim babh As String = R1("备案编号")
r1("hts1") = iif(r1("备案日期")<=dt0,1,0)
r1("hts2") = iif(r1("备案日期")>=dt1 And r1("备案日期")<dt2,1,0)
r1("hts3") = iif(r1("备案日期")>=dt2 And r1("备案日期")<=dt3,1,0)
r1("hts4") = iif(r1("备案日期")>=dt1 And r1("备案日期")<=dt3,1,0)
r1("htjk1") = iif(r1("备案日期")<=dt0,r1("合同价款")/10000,0)
r1("htjk2") = iif(r1("备案日期")>=dt1 And r1("备案日期")<dt2,r1("合同价款")/10000,0)
r1("htjk3") = iif(r1("备案日期")>=dt2 And r1("备案日期")<=dt3,r1("合同价款")/10000,0)
r1("htjk4") = iif(r1("备案日期")>=dt1 And r1("备案日期")<=dt3,r1("合同价款")/10000,0)
If r1("评审报告日期") < r1("备案日期")
r1("评审报告日期1") = r1("备案日期")
Else
r1("评审报告日期1") = r1("评审报告日期")
End If
If r1("备案日期") <= dt3
If r1("备案日期") <= dt0

\'If r1("最终定价") Is Nothing
\' r1("yfk1") = r1("合同价款")/10000
\' r1("yfk2") = r1("合同价款")/10000
\' r1("yfk3") = 0
\' r1("yfk4") = 0
\' r1("yfk5") = r1("合同价款")/10000
\' End If

If r1("最终定价") IsNot Nothing
If r1("评审报告日期1") <= dt0
r1("yfk1") = r1("最终定价")/10000
r1("yfk2") = r1("最终定价")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("最终定价")/10000
End If
If r1("评审报告日期1") >= dt1 And r1("评审报告日期1") < dt2
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("最终定价")/10000
r1("yfk3") = 0
r1("yfk4") = r1("最终定价")/10000 - r1("合同价款")/10000
r1("yfk5") = r1("最终定价")/10000

End If
If r1("评审报告日期1") >= dt2 And r1("评审报告日期1") <= dt3
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = r1("最终定价")/10000 - r1("合同价款")/10000
r1("yfk4") = r1("最终定价")/10000 - r1("合同价款")/10000
r1("yfk5") = r1("最终定价")/10000

End If

If r1("评审报告日期1") > dt3
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000

End If


End If
Else
\'If r1("最终定价") Is Nothing
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000
\' End If

End If
If r1("备案日期") >=dt1 And r1("备案日期") < dt2
If r1("最终定价") IsNot Nothing
If r1("评审报告日期1") < dt2
r1("yfk1") = 0
r1("yfk2") = r1("最终定价")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("最终定价")/10000
End If
If r1("评审报告日期1") >= dt2 And r1("评审报告日期1") <= dt3
r1("yfk1") = 0
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = r1("最终定价")/10000 - r1("合同价款")/10000
r1("yfk4") = r1("最终定价")/10000 - r1("合同价款")/10000
r1("yfk5") = r1("最终定价")/10000

End If
If r1("评审报告日期1") > dt3
r1("yfk1") = 0
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000

End If

End If
If r1("最终定价") Is Nothing
r1("yfk1") = 0
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000
End If

End If
If r1("备案日期") >=dt2 And r1("备案日期") <=dt3
If r1("最终定价") IsNot Nothing
If r1("评审报告日期1") <= dt3
r1("yfk1") = 0
r1("yfk2") = 0
r1("yfk3") = r1("最终定价")/10000
r1("yfk4") = r1("最终定价")/10000
r1("yfk5") = r1("最终定价")/10000
End If

If r1("评审报告日期1") > dt3
r1("yfk1") = 0
r1("yfk2") = 0
r1("yfk3") = r1("合同价款")/10000
r1("yfk4") = r1("合同价款")/10000
r1("yfk5") = r1("合同价款")/10000
End If

End If

If r1("最终定价") Is Nothing
r1("yfk1") = 0
r1("yfk2") = 0
r1("yfk3") = r1("合同价款")/10000
r1("yfk4") = r1("合同价款")/10000
r1("yfk5") = r1("合同价款")/10000
End If

End If
Else
r1("yfk1") = 0
r1("yfk2") = 0
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = 0


End If
\' If r1("备案日期") <= dt3
r1("yifk1") = DataTables("基建合同执行表").Compute("SUM(支付额1)", "备案编号 = \'" & babh & "\' And 填报时间 < #" & dt0 & "#")
r1("yifk2") = DataTables("基建合同执行表").Compute("SUM(支付额1)", "备案编号 = \'" & babh & "\' And 填报时间 < #" & dt2 & "#")
r1("yifk3") = DataTables("基建合同执行表").Compute("SUM(支付额1)", "备案编号 = \'" & babh & "\' And 填报时间 >= #" & dt2 & "# And 填报时间 <= #" & dt3 & "#")
r1("yifk4") = DataTables("基建合同执行表").Compute("SUM(支付额1)", "备案编号 = \'" & babh & "\' And 填报时间 >= #" & dt1 & "# And 填报时间 <= #" & dt3 & "#")
r1("yifk5") = DataTables("基建合同执行表").Compute("SUM(支付额1)", "备案编号 = \'" & babh & "\' And 填报时间 <= #" & dt3 & "#")

\'End If
If r1("备案日期") >= dt2
If r1("备案日期") <= dt3
r1("ybbz") = "本月备案合同"
r1("ybrq") = dt3
Else
r1("ybrq") = dt3
r1("ybbz") = "报告月后备案"

End If
Else

r1("ybbz") = "原备案合同"
r1("ybrq") = dt3
End If

Next
求高手指教：带颜色的代码怎么写都不执行，郁闷，哪里错了，

--  作者：散客
--  发布时间：2015/1/28 18:39:00
--
也不报错误信息

--  作者：游
--  发布时间：2015/1/28 18:49:00
--
用 isnull 或 <=0 判断

--  作者：散客
--  发布时间：2015/1/28 19:04:00
--

If r1("最终定价").IsNull =True
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000
End If
这样也不行，报错
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,综合统计,Button5,Click
详细错误信息：
未找到类型“Integer”的公共成员“IsNull”。

--  作者：游
--  发布时间：2015/1/28 19:09:00
--
If r1("最终定价").IsNull =True ???????

If r1.IsNull ("最终定价")

--  作者：有点甜
--  发布时间：2015/1/28 19:11:00
--

If r1.IsNull("最终定价") Then

End If

--  作者：散客
--  发布时间：2015/1/28 19:31:00
--

If r1.IsNull("最终定价") Then
r1("yfk1") = r1("合同价款")/10000
r1("yfk2") = r1("合同价款")/10000
r1("yfk3") = 0
r1("yfk4") = 0
r1("yfk5") = r1("合同价款")/10000
End If
郁闷：这样也不执行

--  作者：散客
--  发布时间：2015/1/28 19:40:00
--

合同价款最终定价备案日期合同执行情况月报评审报告日期1

应付款日期备注

年初数期初数本月变化数本年变化数期末数

125052596 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

127491342 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

216000 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

5082933 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

4327200 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

7516800 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

2261028 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

2050000 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

5261691 5261896 2013-11-30 526.1896 526.1896 0 0 526.1896 2014-10-31 原备案合同 2013-11-30

3263977 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

11957856 13288274 2013-11-30 1328.8274 1328.8274 0 0 1328.8274 2014-10-31 原备案合同 2013-11-30

16819883 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

200750 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

43150647 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

5698500 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

4108000 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

8840000 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

2513749 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

2961652 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

116712765 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

119916920 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

11045805 11275416 2013-11-30 1127.5416 1127.5416 0 0 1127.5416 2014-10-31 原备案合同 2013-11-30

182000 2013-11-30 0 0 0 0 0 2014-10-31 原备案合同 2013-11-30

--  作者：散客
--  发布时间：2015/1/28 19:45:00
--
求救

--  作者：有点甜
--  发布时间：2015/1/28 19:51:00
--
不可能啊，自己加入msgbox调试一下，看执行到哪里了，为什么没进去对应的代码。