Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]哪位大神帮忙看看代码


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

主题：[求助]哪位大神帮忙看看代码
帅哥哟，离线，有人找我吗？
陈嘉淳
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：19 积分：208 威望：0 精华：0 注册：2016/8/29 10:35:00 		[求助]哪位大神帮忙看看代码  发帖心情 Post By：2016/9/6 10:20:00 [显示全部帖子]

代码是实现先增加行的日期值必须比上一行的日期值大的要求，测试出来的结果全错的，d2的输出是00:00:00，在命令窗口都是好的

If e.Col.Name="日期" Then
     Dim b As Integer
     Dim dr As Row
     Dim d1,d2 As Date  
     b=e.Row.Index
      If b>1 Then
     dr=Tables("现金日记账").Rows(b-2)
     d1=dr("日期")
      d2=e.Row("日期")
        If d2<d1 Then
        e.Cancel=True     
       End If
       End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
陈嘉淳
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：19 积分：208 威望：0 精华：0 注册：2016/8/29 10:35:00 		  发帖心情 Post By：2016/9/6 11:03:00 [显示全部帖子]

谢谢你

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


加好友 发短信
等级：婴狐 帖子：19 积分：208 威望：0 精华：0 注册：2016/8/29 10:35:00 		  发帖心情 Post By：2016/9/6 11:20:00 [显示全部帖子]

大神能不能指点一下我的代码问题出在哪里啊，我实在看不出来问题点在哪里。请原谅菜鸟的无知。

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


加好友 发短信
等级：婴狐 帖子：19 积分：208 威望：0 精华：0 注册：2016/8/29 10:35:00 		  发帖心情 Post By：2016/9/6 13:09:00 [显示全部帖子]

 If d2<d1 也不对，应该是if d2<d1 这一点真的不明白，就是一个大小写的区别。望指点迷津

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


加好友 发短信
等级：婴狐 帖子：19 积分：208 威望：0 精华：0 注册：2016/8/29 10:35:00 		  发帖心情 Post By：2016/9/9 10:10:00 [显示全部帖子]

我写的D2是当前行输入的日期，而D1是之前行输入的日期，如果D2<D1取消输入，从代码上来说是没错的。而且B>1是用来判断当前输入列之前是否有数据列存在，从理论上来说也没错。我觉得是我的思路出现了问题导致代码不能实现想要的结果，指出代码的错误处比告诉我这个功能怎么实现要有帮助的多。不然下次我写代码的时候还会按照原来的思路去写，这样类似的问题还是会出现的

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