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


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

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


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		日期  发帖心情 Post By：2015/4/26 15:48:00 [只看该作者]

老师：你好！
如何给下面代码加上一个日期条件：

if  e.DataRow("日期") then '如果本年、本月的日期已经存在  这里怎么修改？
Return
else
    Dim f As New Filler
    f.SourceTable = DataTables("固定资产明细账") '指定数据来源
    f.SourceCols = "资产编码" '指定数据来源列
    f.DataTable = DataTables("折旧明细账") '指定数据接收表
    f.DataCols = "资产编码" '指定数据接收列
    f.Fill() '填充数据
endif
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2015/4/26 15:49:00 [只看该作者]

你可以看看：
http://www.foxtable.com/help/topics/2720.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2015/4/26 15:50:00 [只看该作者]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
if DataTables("订单").Find(Filter) isnot nothing then
    存在本月的订单
end if
 回到顶部
帅哥哟，离线，有人找我吗？
zhangxl1964
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2015/4/26 15:57:00 [只看该作者]

谢谢！

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


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2015/4/28 13:02:00 [只看该作者]



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


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2015/4/28 13:04:00 [只看该作者]

怎样再加个条件，如编号禁止重复，   结果是：可以分批加载本月的订单，但已经加载的订单不再加载。
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 
if DataTables("订单").Find(Filter) isnot nothing then
    存在本月的订单
end if
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

DataTables("订单").LoadFilter=Filter
DataTables("订单").Load
 回到顶部
帅哥哟，离线，有人找我吗？
zhangxl1964
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2015/4/28 15:55:00 [只看该作者]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Dim dr As DataRow 
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# "
Filter = Filter & "编号 = '" & dr("编号") & "'"
If DataTables("工资表").SQLFind(Filter) IsNot Nothing Then    '存在本月的订单
    Return 
Else
    Dim f As New Filler
    f.SourceTable = DataTables("考勤表") '指定数据来源
    f.SourceCols = "编号" '指定数据来源列
    f.DataTable = DataTables("工资表") '指定数据接收表
    f.DataCols = "编号" '指定数据接收列
    f.Fill() '填充数据
End If

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

请帮助修改
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# "
Filter = Filter & " and 编号 = '" & dr("编号") & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
zhangxl1964
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2015/4/28 16:20:00 [只看该作者]

还是这个错误，我上传个示例，请麻烦帮助修改。
工资表上有个按钮，代码在按钮
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:查询在职.table
 回到顶部
总数 17 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.05078 秒, 5 次数据查询