- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 入库单新增入库时 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146381)
-- 发布时间：2020/2/22 15:55:00
-- 入库单新增入库时
有点甜老师：你好！
在入库单新增入库时，需要判断当前日
期的入库是否已审核，入已审核则不能再新增入库。在窗口新增入库的按钮中如何编写代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:入库单.foxdb |
期的入库是否已审核，入已审核则不能再新增入库。在窗口新增入库的按钮中如何编写代码？
-- 发布时间：2020/2/22 16:09:00
--
Dim dr As DataRow = DataTables("入库主表").Find("日期 = #" & Date.Today & "# and 审核=true")
If dr IsNot Nothing Then
msgbox("已审核不能再新增入库")
Return
End If
Tables("入库主表").AddNew()
-- 发布时间：2020/2/22 16:14:00
--
应该是当前日期的月度，审核列已审核后不能新增入库
-- 发布时间：2020/2/22 16:30:00
--
判断月度？一个月只能审核入库一次？
-- 发布时间：2020/2/22 16:37:00
--
对，月底一次审核
-- 发布时间：2020/2/22 16:48:00
--
Dim dt1 As New Date(Date.Today.year, Date.Today.month, 1)
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt1.addmonths(1) & "# and 审核=true"
Dim dr As DataRow = DataTables("入库主表").Find(Filter)
If dr IsNot Nothing Then
msgbox("已审核不能再新增入库")
Return
End If
Tables("入库主表").AddNew()
-- 发布时间：2020/2/22 18:42:00
--
有点蓝老师：你好！
代码测试了，没起作用；不知你在实例上测试了吗？
-- 发布时间：2020/2/23 20:09:00
--
没有测试，我看您原来代码使用的是入库主表，但是实例里没有这个表，所以没测。现在我改为入库明细重新测试了是可以的，之前的代码少了个定义
Dim dt1 As New Date(Date.Today.year, Date.Today.month, 1)
Dim Filter As String = "日期 >= #" & dt1 & "# And 日期 < #" & dt1.AddMonths(1) & "# and 审核=true"
Dim dr As DataRow = DataTables("入库明细").Find(Filter)
If dr IsNot Nothing Then
msgbox("已审核不能再新增入库")
Return
End If
Tables("入库明细").AddNew()
-- 发布时间：2020/2/24 9:12:00
--
有点蓝老师：你好！
我把代码放入新增按钮事件中，还是弹出：
错误所在事件：窗口,入库单,Button2,Click
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:入库单.foxdb |
错误所在事件：窗口,入库单,Button2,Click
详细错误信息：
-- 发布时间：2020/2/24 9:42:00
--
……
If dr IsNot Nothing Then
msgbox("已审核不能再新增入库")
Return
Else
Dim r As Row = Tables("入库明细").AddNew()
r("日期") = Forms("入库单").Controls("DateTimePicker1").Value
End If