以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]代码修改（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26051)

--  作者：yyzlxc --  发布时间：2012/11/23 9:30:00 --  [求助]代码修改（已解决） 一段代码，对符合条件的行，在对应的休假（逻辑列）打钩，代码运行出错，如何修改，请各位老师指教，谢谢！！ Dim t As Table = Tables("名册") Dim rq As Date = Forms("名册").Controls("DateTimePicker1").Value For Each r As Row In t.Rows     If r("休假开始") <= #" & rq & "# And  r("休假结束") > #" & rq & "#         r("休假") = True     Else         r("休假") = False     End If Next \'DataTables("名册").LoadFilter = "" \'DataTables("名册").Load  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目5.table 此主题相关图片如下：v.jpg [此贴子已经被作者于2012-11-23 9:52:43编辑过]

--  作者：lin_hailun --  发布时间：2012/11/23 9:35:00 --    If r("休假开始") <= #" & rq & "# And  r("休假结束") > #" & rq & "#" ---------------------------------  说错了，条件表达式不能这样写的。 [此贴子已经被作者于2012-11-23 9:48:52编辑过]

--  作者：yyzlxc --  发布时间：2012/11/23 9:42:00 --   谢谢lin_hailun老师的回复，好像还是报错。

--  作者：lin_hailun --  发布时间：2012/11/23 9:48:00 --    改成这样吧。 Dim t As Table = Tables("名册") Dim rq As Date = Forms("名册").Controls("DateTimePicker1").Value For Each r As Row In t.Rows     If CDate(r("休假开始")) <= rq AndAlso CDate(r("休假结束")) > rq         r("休假") = True     Else         r("休假") = False     End If Next

--  作者：yyzlxc --  发布时间：2012/11/23 9:52:00 --   谢谢lin_hailun老师的指教，问题解决了，再次衷心感谢！！