- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据窗口的时间段进行锁定及标备 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146855)
-- 发布时间：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)) \'获取该月的最后一天
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
Dim dr As DataRow
If dr("日期"）<= dt1 AND dr（"日期"）>= dt2 then
dr("结帐") =True
Tables("伙食").Rows(R).Locked = True
End If
Next
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
Dim dr As Row = Tables("伙食").Rows(R)
If dr("日期"）<= dt1 AND dr（"日期"）>= dt2 then
dr("结帐") =True
dr.Locked = True
End If
Next
Next
-- 发布时间：2020/3/4 11:43:00
--
还是没有反映，不知是不是If dr("日期"）<= dt1 AND dr（"日期"）>= dt2 then句日期判断出问题
-- 发布时间：2020/3/4 12:06:00
--
要做什么判断？
-- 发布时间：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)) \'获取该月的最后一天
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
If dr("日期"）<= dt1 AND dr（"日期"）>= dt2 then
-- 发布时间：2020/3/4 13:39:00
--
请使用文字描述，要做什么判断？
-- 发布时间：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 |
-- 发布时间：2020/3/4 14:58:00
--
又倒过来了，这个问题早日搞了成日，多谢有点蓝老师
-- 发布时间：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
此主题相关图片如下：{3df896e8-545f-4c49-a75b-ea4d21b25c1c}_20200304205335.jpg