Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 对时间控件进行条件判断时出错


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

主题：[求助] 对时间控件进行条件判断时出错
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 对时间控件进行条件判断时出错  发帖心情 Post By：2014/11/4 12:40:00 [只看该作者]

有一个时间控件，进行该控件判断时提示错误。我该怎么改？

Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & d1 & "'  And 登记时间 = '" & e.Form.Controls("登记时间" & i).Value & "'  And 类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")
        
        If ndr Is Nothing Then


图片点击可在新窗口打开查看此主题相关图片如下：360截图20141104123847984.jpg
图片点击可在新窗口打开查看<br/>
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4640 积分：33850 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/11/4 12:48:00 [只看该作者]

日期前后加“#”？

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


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

 日期或时间，要把 '' 改成 ##
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 14:26:00 [只看该作者]

是这样吗？

Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & d1 & "'  And 登记时间 = '" & e.Form.Controls(##登记时间## & i).Value & "'  And 类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/4 14:28:00 [只看该作者]

And 登记时间 = #" & e.Form.Controls("登记时间" & i).Value & "# And 类型 = '"

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 17:13:00 [只看该作者]

确定是这样改没错吗？好像这样改了以后项目会自动关闭

Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & d1 & "'  And 登记时间 = #" & e.Form.Controls("登记时间" & i).Value & "#  And 类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")
        
        If ndr Is Nothing Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 自动关闭和这段代码无关，可能和你下面的代码有问题。

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 17:29:00 [只看该作者]

改了很多种都没改对，请帮我看看错在哪里？



For i As Integer = 1 To 6
        
Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & e.Form.Controls("日期").Text & "'  and  登记时间 = #" & e.Form.Controls("登记时间" & i).Value & "#   And  类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")
        
        If ndr Is Nothing Then
            
            If e.Form.Controls("机房名称" ).Text > ""  And e.Form.Controls("日期" ).Text > ""   Then
               If e.Form.Controls("类型" & i ).Text > ""  Then
                    If  e.Form.Controls("登记时间" & i).text > "" And e.Form.Controls("负载电流" & i ).Text > ""  And e.Form.Controls("放电电压" & i ).Text > ""   Then
                        
                        ndr  = DataTables("机房电池放电登记表").AddNew
                        
                        ndr("机房名称") = e.Form.Controls("机房名称").Text
                        ndr("日期") = e.Form.Controls("日期").Text
                        ndr("登记时间") = e.Form.Controls("登记时间" & i).text 
                        ndr("负载电流") = e.Form.Controls("负载电流" & i).Text
                        ndr("放电电压") = e.Form.Controls("放电电压" & i).Text
                        ndr("类型") = e.Form.Controls("类型" & i).Text

                        DataTables("机房电池放电登记表").Save()
                        
                    Else
                        MessageBox.Show("请填入完整数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
                    End If
                End If
                End If
End If
                
         
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 你给的代码看不出问题。

 

 自己调试一下 http://www.foxtable.com/help/topics/1485.htm

 

 

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 17:56:00 [只看该作者]

2、3、4步骤都提示错误


图片点击可在新窗口打开查看此主题相关图片如下：360截图20141104175707375.jpg
图片点击可在新窗口打开查看


    MessageBox.Show(2)

    For i As Integer = 1 To 6
Dim d1 As Date = e.Form.Controls("登记时间" & i).Value
        Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & e.Form.Controls("日期").Text & "'  and  登记时间 = '" & e.Form.Controls("登记时间" & i).Value & "' And  类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")
        
        If ndr Is Nothing Then
            
            If e.Form.Controls("机房名称" ).Text > ""  And e.Form.Controls("日期" ).Text > ""   Then
                MessageBox.Show(3)
                If e.Form.Controls("类型" & i ).Text > ""  Then
                    If  d1 > "" And e.Form.Controls("负载电流" & i ).Text > ""  And e.Form.Controls("放电电压" & i ).Text > ""   Then
                        MessageBox.Show(4)
                        ndr  = DataTables("机房电池放电登记表").AddNew
                        
                        ndr("机房名称") = e.Form.Controls("机房名称").Text
                        ndr("日期") = e.Form.Controls("日期").Text
                        ndr("登记时间") = d1
                        ndr("负载电流") = e.Form.Controls("负载电流" & i).Text
                        ndr("放电电压") = e.Form.Controls("放电电压" & i).Text
                        ndr("类型") = e.Form.Controls("类型" & i).Text
                        DataTables("机房电池放电登记表").Save()
                        MessageBox.Show(5)
                    Else
                        MessageBox.Show("请填入完整数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
                    End If
                    MessageBox.Show(6)
                End If
            End If
            
        End If
    Next
[此贴子已经被作者于2014-11-4 17:55:59编辑过]
 回到顶部
总数 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.04297 秒, 4 次数据查询