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

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

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

zhangxl1964

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

加好友

发短信

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

Post By：2020/2/24 10:49:00 [只看该作者]

有点蓝老师：你好！

zhangxl1964

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

加好友

发短信

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

Post By：2020/2/24 10:52:00 [只看该作者]

有点蓝老师：你好！

代码已经可以了。

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

天宇科技

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

加好友

发短信

等级：一尾狐帖子：474 积分：4041 威望：0 精华：0 注册：2018/5/13 15:18:00

Post By：2020/2/24 10:52:00 [只看该作者]

收藏学习

有点蓝

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

加好友

发短信

等级：超级版主帖子：109718 积分：558300 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/24 10:58:00 [只看该作者]

Dim dr As DataRow = DataTables("入库明细").SqlFind(Filter)

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：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

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

加好友

发短信

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

Post By：2020/2/24 11:01:00 [只看该作者]

谢谢！

有点蓝

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

加好友

发短信

等级：超级版主帖子：109718 积分：558300 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/24 11:04:00 [只看该作者]

#改为单引号，看看：http://www.foxtable.com/webhelp/topics/2343.htm

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：109718 积分：558300 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/26 11:06:00 [只看该作者]

说明这个订单号不符合条件，不在在这个日期内，或者没有审核

zhangxl1964

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

加好友

发短信

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

Post By：2020/2/26 13:19:00 [只看该作者]

有点蓝老师：你好！

不知那里有错误，表中已有订单数据并审核，就是不执行If dr IsNot Nothing Then条件，而执行ELSE后的代码。能否帮助看看问题所在？

Dim QueryMonth As Date '自定义日期

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

Dim ddh As String '自定义日期

ddh = Forms("入库单").Controls("DropBox1").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 Filter As String = "日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "# and 订单号 = '" & ddh & "' And 审核=true"

Dim dr As DataRow = DataTables("入库明细").sqlFind("Filter")

If dr IsNot Nothing Then

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

Return

Else

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

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

End If

[此贴子已经被作者于2020/2/26 13:24:04编辑过]

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

总数 25 上一页 1 2 3 下一页

主题：入库单新增入库时