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


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

主题：[求助] 对时间控件进行条件判断时出错
帅哥哟，离线，有人找我吗？
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/>
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "'")

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 19:19:00 [显示全部帖子]

还是有错误

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/11/4 20:41:00 [显示全部帖子]

我的项目属性DataColChanged中写有以下命令。如果把红色命令删除；那么12楼的项目就会自动关闭项目；如果不删除就正常、这是为什么？

If e.DataTable.DataCols.Contains("操作记录_修改日期")  Then '如果当前表中存在"*****"列
    
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    dt = dt.Date
    

    
    
    If dt <> e.DataRow("操作记录_修改日期") Then '如果"*****"日期列的日期不等于当前电脑日期
        
        e.DataRow("操作记录_修改日期") = dt '在"*****"列纪录下当前电脑日期
        
        
    End If  '结束
End If  '结束
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 6 次数据查询