入库单新增入库时 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 入库单新增入库时

共有5098人关注过本帖树形打印复制链接主题：入库单新增入库时

zhangxl1964

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

入库单新增入库时 发帖心情

Post By：2020/2/22 15:55:00 [显示全部帖子]

有点甜老师：你好！

在入库单新增入库时，需要判断当前日

下载信息 [文件大小：下载次数： ]
点击浏览该文件:入库单.foxdb

期的入库是否已审核，入已审核则不能再新增入库。在窗口新增入库的按钮中如何编写代码？

zhangxl1964

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/22 16:14:00 [显示全部帖子]

应该是当前日期的月度，审核列已审核后不能新增入库

zhangxl1964

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/22 16:37:00 [显示全部帖子]

对，月底一次审核

zhangxl1964

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/22 18:42:00 [显示全部帖子]

有点蓝老师：你好！

代码测试了，没起作用；不知你在实例上测试了吗？

zhangxl1964

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/24 9:12:00 [显示全部帖子]

有点蓝老师：你好！

我把代码放入新增按钮事件中，还是弹出：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:入库单.foxdb

错误所在事件：窗口,入库单,Button2,Click

详细错误信息：

zhangxl1964

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/24 10:49:00 [显示全部帖子]

有点蓝老师：你好！

zhangxl1964

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/24 10:52:00 [显示全部帖子]

有点蓝老师：你好！

代码已经可以了。

如果当期日期的数据没有加载时，不用 Filter，用sqlfind，怎么修改？

zhangxl1964

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/24 11:00:00 [显示全部帖子]

有点甜老师：你好！

可以了。采用SQLSERVER数据库时：把审核=true 改成：审核=1

Dim QueryMonth As Date '自定义日期

QueryMonth = Forms("入库单").Controls("DateTimePicker1").value

Dim FirstDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,1) '当月度第一天

Dim LastDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,Date.DaysInMonth(QueryMonth.Year,QueryMonth.Month)) '当月度最后一天

'Dim dt1 As New Date(Date.Today.year, Date.Today.month, 1)

'Dim Filter As String = "日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "# and 审核=true"

Dim dr As DataRow = DataTables("入库明细").sqlFind("日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "# and 审核=1")

If dr IsNot Nothing Then

msgbox("已审核不能再新增入库")

Return

Else

Dim r As Row = Tables("入库明细").AddNew()

r("日期") = Forms("入库单").Controls("DateTimePicker1").Value

'Tables("入库明细").AddNew()

' dr("日期") = Forms("入库单").Controls("DateTimePicker1").Value

End If

zhangxl1964

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/24 11:01:00 [显示全部帖子]

谢谢！

zhangxl1964

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2020/2/26 10:10:00 [显示全部帖子]

有点甜老师：你好！

我在代码中加上一个采购订单号的判断，代码自动执行：Dim r As Row = Tables("入库明细").AddNew()；

Dim QueryMonth As Date '自定义日期

QueryMonth = Forms("入库单").Controls("DateTimePicker1").value

Dim ddh As String '自定义订单号

ddh = Forms("入库单").Controls("订单号").value

Dim FirstDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,1) '当月度第一天

Dim LastDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,Date.DaysInMonth(QueryMonth.Year,QueryMonth.Month)) '当月度最后一天

Dim dr As DataRow = DataTables("入库明细").SQLFind("日期 >= '" & FirstDay & "' And 日期 <= '" & LastDay & "' and 订单号 = '" & ddh & "' And 审核=1")

'Dim dr As DataRow = DataTables("入库明细").sqlFind("日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "# and 审核=1")

If dr IsNot Nothing Then

msgbox("已审核不能再新增入库")

Return

Else

Dim r As Row = Tables("入库明细").AddNew()

End If

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：入库单新增入库时