Foxtable(狐表)用户栏目专家坐堂 → 判断表中的所有时段中 是否含有该日期


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

主题:判断表中的所有时段中 是否含有该日期

帅哥哟,离线,有人找我吗?
gohtml
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
判断表中的所有时段中 是否含有该日期  发帖心情 Post By:2013/5/1 20:28:00 [显示全部帖子]

判断表中的所有时段中 是否含有该日期 假如是提示重填
如:


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 8:39:00 [显示全部帖子]

有没有人帮帮我呀

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 9:05:00 [显示全部帖子]

以下是引用Bin在2013-5-2 8:43:00的发言:
dim dr as datarow = Datatables("表A").Find("开始日期 = #2013-01-01# and 结束日期 = #2013-03-01#")
if dr isnot nothing then
  进入到这个IF判断 说明该日期已经被使用.
end if

Bin    要判断表中的"开始日期"列和"结束日期"列两个日期中是否含有录入的日期 假如是提示重填

 开始时间   结束时间   内容1     
    2013-01-01    2013-03-01      
   2013-01-03(弹出对话框提示该日期已经被占用)    2013-01-03( 弹出对话框  提示该日期已经被占用)      
表上的日期包含了2013-01-01,20113-01-02,2013-01-03一直到2013-03-01
假如在"开始时间"列或"结束时间"列中在填入 2013-01-03(已经是表中包含的日期) 就提示该日期已经被占用


[此贴子已经被作者于2013-5-2 9:08:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 9:59:00 [显示全部帖子]

控件输入

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 10:10:00 [显示全部帖子]

以下是引用Bin在2013-5-2 10:04:00的发言:
dim dr as datarow = Datatables("表A").Find("开始日期 >= #2013-01-01# and 结束日期 <= #2013-03-01#")
if dr isnot nothing then
  messagebox.Show("该日期已经被占用")
  ------这里执行你想要的对应操作------
end if


测试这种方法,无论输入什么日期,都包含在内


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 10:14:00 [显示全部帖子]

以下是引用blackzhu在2013-5-2 9:53:00的发言:
表事件还是按钮事件?



表事件


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 10:27:00 [显示全部帖子]

以下是引用Bin在2013-5-2 10:16:00的发言:
for each dr as datarow in Datatables("表A").datarows
 if dr("开始日期") >= #2013-01-01# andalso dr("结束日期") <= #2013-03-01# then
   messagebox.Show("该日期已经被占用")
  ------这里执行你想要的对应操作------
 exit for
 end if
next


数据量非常大的话,效率会比较低.短时间内只能想到这个比较简单的处理方式.


还是不行呀,和前面一个是一样的呀,你可以测试下


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 10:31:00 [显示全部帖子]

以下是引用Bin在2013-5-2 10:27:00的发言:
把你例子发出来.没道理的.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/5/2 11:44:00 [显示全部帖子]

以下是引用y2287958在2013-5-2 10:46:00的发言:

试试这个

如果是这样的话,那么楼主该调整一下自己的表达能力了

 下载信息  [文件大小:332.0 KB  下载次数:1]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

应该是我表达出问题了, 要在"类别"列和"房型"列 都相同的基础上才判断是否已添加过该记录


 回到顶部