以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据窗口的时间段进行锁定及标备  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146855)

--  作者:zhuxinhui
--  发布时间:2020/3/4 11:28:00
--  根据窗口的时间段进行锁定及标备
y = e.form.Controls("ComboBox1").text   \'指定年份
m = e.form.Controls("ComboBox2").text   \'指定月份
Dim dt1 As New Date(y, m, 1) \'获取该月的第一天
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天

For R As Integer =0 To Tables("伙食").Rows.Count -1
    Dim dr As DataRow
    If dr("日期")<= dt1 AND dr("日期")>= dt2 then
       dr("结帐") =True
       Tables("伙食").Rows(R).Locked = True 
    End If
Next

这段日期老出错,不知是哪里出问题

--  作者:有点蓝
--  发布时间:2020/3/4 11:35:00
--  
For R As Integer =0 To Tables("伙食").Rows.Count -1
    Dim dr As Row = Tables("伙食").Rows(R)
    If dr("日期")<= dt1 AND dr("日期")>= dt2 then
       dr("结帐") =True
       dr.Locked = True 
    End If
Next

--  作者:zhuxinhui
--  发布时间:2020/3/4 11:43:00
--  
还是没有反映,不知是不是If dr("日期")<= dt1 AND dr("日期")>= dt2 then句日期判断出问题
--  作者:有点蓝
--  发布时间:2020/3/4 12:06:00
--  
要做什么判断?
--  作者:zhuxinhui
--  发布时间:2020/3/4 12:26:00
--  
时间段
Dim dt1 As New Date(y, m, 1) \'获取该月的第一天
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
If dr("日期")<= dt1 AND dr("日期")>= dt2 then

--  作者:有点蓝
--  发布时间:2020/3/4 13:39:00
--  
请使用文字描述,要做什么判断?
--  作者:zhuxinhui
--  发布时间:2020/3/4 14:34:00
--  
If dr("日期")<= dt1 AND dr("日期")>= dt2 then
日期 
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间:2020/3/4 14:46:00
--  
If dr("日期")>= dt1 AND dr("日期")<= dt2 then

--  作者:zhuxinhui
--  发布时间:2020/3/4 14:58:00
--  
又倒过来了,这个问题早日搞了成日,多谢有点蓝老师


--  作者:zhuxinhui
--  发布时间:2020/3/4 20:55:00
--  
y = e.form.Controls("ComboBox1").text   \'指定年份
m = e.form.Controls("ComboBox2").text   \'指定月份
Dim dt1 As New Date(y, m, 1) \'获取该月的第一天
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
ym=Format(dt1,"yyyyMM")

DataTables("考勤").LoadFilter = "月份 = ym"
DataTables("考勤").Load()

这个加载提示
图片点击可在新窗口打开查看此主题相关图片如下:{3df896e8-545f-4c49-a75b-ea4d21b25c1c}_20200304205335.jpg
图片点击可在新窗口打开查看