- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67557)
-- 发布时间：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
-- 发布时间：2015/4/26 15:49:00
--
你可以看看：
http://www.foxtable.com/help/topics/2720.htm
-- 发布时间：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
-- 发布时间：2015/4/26 15:57:00
--
谢谢！
-- 发布时间：2015/4/28 13:02:00
--
-- 发布时间：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 |
-- 发布时间：2015/4/28 13:33:00
--
DataTables("订单").LoadFilter=Filter
DataTables("订单").Load
-- 发布时间：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
请帮助修改
谢谢！
-- 发布时间：2015/4/28 16:06:00
--
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# "
Filter = Filter & " and 编号 = \'" & dr("编号") & "\'"
-- 发布时间：2015/4/28 16:20:00
--
还是这个错误，我上传个示例，请麻烦帮助修改。
工资表上有个按钮，代码在按钮
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:查询在职.table |