Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教：不知哪里出错


  共有5543人关注过本帖树形打印复制链接

主题：求教：不知哪里出错
帅哥哟，离线，有人找我吗？
散客
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		求教：不知哪里出错  发帖心情 Post By：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
求高手指教：带颜色的代码怎么写都不执行，郁闷，哪里错了，
 回到顶部
帅哥哟，离线，有人找我吗？
散客
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		  发帖心情 Post By：2015/1/28 18:39:00 [只看该作者]

也不报错误信息

 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/28 18:49:00 [只看该作者]

用  isnull  或  <=0 判断

 回到顶部
帅哥哟，离线，有人找我吗？
散客
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		  发帖心情 Post By：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”。
 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/28 19:09:00 [只看该作者]

 If r1("最终定价").IsNull =True     ???????

 If r1.IsNull ("最终定价")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/28 19:11:00 [只看该作者]

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

 

End If
 回到顶部
帅哥哟，离线，有人找我吗？
散客
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		  发帖心情 Post By：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
郁闷：这样也不执行
 回到顶部
帅哥哟，离线，有人找我吗？
散客
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
散客
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00 		  发帖心情 Post By：2015/1/28 19:45:00 [只看该作者]

求救

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/28 19:51:00 [只看该作者]

 不可能啊，自己加入msgbox调试一下，看执行到哪里了，为什么没进去对应的代码。

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询