Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期比较


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

主题：日期比较
帅哥哟，离线，有人找我吗？
q2520
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/2 8:18:00 [显示全部帖子]

甜老师 你这个更不行了  这个是在蓝老师基础上修改了一点  基本功能都已经达到   
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时间.table

现在还是这个二次时间  输入的问题   二次时间如果不满足时间出现提示以后   就可以手动修改了    你试试   其实就是这个二次时间最重要的    不到时间是不能让输入的   所以不能随便修改   禁止手动输入
[此贴子已经被作者于2018/7/2 8:18:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/2 11:32:00 [显示全部帖子]

甜老师  我已经很认真的看过你发的实例   真不是那个效果    是不是你理解错了  
我要的效果是     二次时间  只能用空格输入  不能用手动输入     如果输入的时间不在 设置的范围内  取消输入    

你看看 我发的这个实例    二次时间手动输入不了   但是二次时间如果不满足时间出现提示以后   就可以手动修改了    你试试   其实就是这个二次时间最重要的    不到时间是不能让输入的   所以不能随便修改   禁止手动输入

这个是在蓝老师基础上修改了一点  基本功能都已经达到   
 下载信息  [文件大小：368.0 KB  下载次数：0]
图片点击可在新窗口打开查看点击浏览该文件:时间.table
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/2 15:00:00 [显示全部帖子]

怎么会没问题    二次时间那列  双击以后想怎么写就能怎么写     如果输入不在范围内   除了退格键和删除键不能用     全选以后   时间还是可以随便手动改
你20楼发的那个例子  绝对不行    我发的那个在蓝老师基础上修改的那个就可以      只是还有一个问题  就是输入时间不在范围  出错误提示以后就可以手动修改   就这点问题了
[此贴子已经被作者于2018/7/2 15:04:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/2 16:14:00 [显示全部帖子]

我看了很多遍   试了很多遍    不行   
下载信息  [文件大小：368.0 KB  下载次数：2]
图片点击可在新窗口打开查看点击浏览该文件:时间.table
你能看看这个实例吧
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 9:00:00 [显示全部帖子]

双击以后可以直接输入时间   这一条是主要的   要求是不允许手动输入时间   

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


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 9:07:00 [显示全部帖子]

老师还没明白吗     二次时间那列   要求只能空格输入   不让手动输入时间     但是现在的情况是   可以手动输入   就是要解决怎么样不让他手动输入时间这个问题

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


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 11:30:00 [显示全部帖子]

老师啊 我要疯了  这不还是你那个   不都说了不行吗
现在我有二种办法手动输入时间  
1.新增一行后直接在二次时间列的单元格里双击  就能写数字了
2.空格输入  提示错误以后  用鼠标全选   又可以手动输入时间了

不让手动输入时间   只能空格    这是要求   你没理解错吧

你别纠结你这个了   你看看最近发的那个    那个是最接近要求的   只是还有一点小瑕疵   你在那个实例的基础上修改最好了
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 14:44:00 [显示全部帖子]

时间问题行了    现在还一个问题   我写的这个代码  你看下出错在什么地方   为什么不行    昨天我试的还行
If e.DataCol.Name = "日期" Then
    Dim rq As Date = e.DataRow("日期")
    Dim ec As Date = e.DataRow("二次时间")
    If rq.Hour > 07 AndAlso rq.Hour < 14 Then
        e.DataRow("班次") = "早"
    ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 Then
        e.DataRow("班次") = "中"
    ElseIf rq.Hour > 22 AndAlso rq.Hour < 06 Then
        e.DataRow("班次") = "夜"
    End If
End If

If e.DataCol.Name = "二次时间" Then
    Dim rq As Date = e.DataRow("日期")
    Dim ec As String = e.DataRow("二次时间")
    If rq.Hour > 07 AndAlso rq.Hour < 14 AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带早"
    ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带中"
    ElseIf rq.Hour > 22 AndAlso rq.Hour < 06 AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带夜"
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 15:31:00 [显示全部帖子]

又出现2个问题   
1.二次时间那列  可以粘贴时间  而且不在时间范围内  也不会报错
2.二次时间如果添加过时间  在删除以后    班次列内容怎么样能恢复成  夜  早  中   而不是  带夜  带早  带中
老师辛苦
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/7/3 16:10:00 [显示全部帖子]

我找到问题的地方了   我禁用了    这个代码  所以能粘贴     但是如果这个代码用的话    输入的时候就很麻烦    单元格都要用鼠标双击才行     要是不用这个代码   切换下一个单元格的时候就很方便   TAB  方向键   回车    都可以用    而且不用双击单元格就可以输入
怎么样修改可以达到完美     不能粘贴     输入的时候也方便  
'If e.keycode <> keys.Space AndAlso e.keycode <> keys.Delete AndAlso e.keycode <> keys.Escape Then
    'e.Cancel = True
'End If

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时间_201807031605.zip

还是看这个实例吧   弄得比较好了
[此贴子已经被作者于2018/7/3 16:11:07编辑过]
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询