- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 循环时间 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111698)
-- 发布时间：2017/12/27 22:42:00
--
贴出你写的代码，同时学会调试代码
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2017/12/28 10:24:00
--
你表格 Tables("产品工艺路线") 的数据为空白，一条数据都没有，怎么比较啊。
在最前面加入msgbox代码。
if Tables("产品工艺路线").Rows.count = 0 Then
msgbox("不能比较")
return
end if
-- 发布时间：2017/12/28 10:42:00
--
在最前面加入代码
if Tables("产品工艺路线").Rows.count = 0 Then
msgbox("不能比较")
return
end if
-- 发布时间：2017/12/28 11:35:00
--
以下是引用nuoyan88在2017/12/28 10:57:00的发言：
老师，可以了，谢谢您！ 如果我产品工艺路线设置了限制加载，以上代码有影响 吗？谢谢
老师，可以了，谢谢您！ 如果我产品工艺路线设置了限制加载，以上代码有影响 吗？谢谢
有影响，如果加载的数据不完整，就查找不到值，影响最后结果的生成。
-- 发布时间：2017/12/28 12:24:00
--
Dim filter As String = "成品编码 = \'" & e.Form.Controls("成品编码1").text & "\'"
Tables("产品工艺路线").Filter = filter
Tables("产品工艺路线").Sort = "加工顺序"
改成
Dim filter As String = "成品编码 = \'" & e.Form.Controls("成品编码1").text & "\'"
Tables("产品工艺路线").datatable.LoadFilter = filter
Tables("产品工艺路线").datatable.Load
Tables("产品工艺路线").Sort = "加工顺序"
-- 发布时间：2017/12/28 16:51:00
--
加入红色代码，看弹出什么
Dim filter As String = "成品编码 = \'" & e.Form.Controls("成品编码1").text & "\'"
msgbox(filter)
Tables("产品工艺路线").datatable.LoadFilter = filter
Tables("产品工艺路线").datatable.Load
Tables("产品工艺路线").Sort = "加工顺序"
msgbox(Tables("产品工艺路线").datatable.LoadFilter)
[此贴子已经被作者于2017/12/28 16:52:13编辑过]
-- 发布时间：2017/12/28 17:36:00
--
你执行13楼的代码，能否正常加载数据和正常生成数据？
下面这段代码可以删除掉了，不要写。
if Tables("产品工艺路线").Rows.count = 0 Then
msgbox("不能比较")
return
end if
-- 发布时间：2017/12/28 21:25:00
--
赋值的时候一起赋值就行了。
Dim t As Table = e.Form.Controls("生产排产分配表").Table
Dim nr As Row = t.AddNew
nr("线别") = e.Form.Controls("线别").text
nr("排产设备") = pr("使用设备")
nr("成品编码") = pr("成品编码")
nr("生产批次") = dr("生产批次")
-- 发布时间：2017/12/28 21:34:00
--
此主题相关图片如下：1.png
你原来的代码，有三个地方有 Dim nr As Row = t.AddNew 的代码，三个地方都要赋值。
[此贴子已经被作者于2017/12/28 21:35:50编辑过]
-- 发布时间：2017/12/29 21:11:00
--
参考3楼的用法，增加一个循环，查询对应设备状态为“进行中”的数据，然后比较开始日期和完成日期