- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：生产效率代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106133)
-- 发布时间：2017/9/2 21:59:00
-- 求助：生产效率代码
如图：
此主题相关图片如下：qq图片20170902215536.png
《机台生产记录》，一审批；就根据机台生产记录的操作员列，全部自动生成《生产效率日报》
此主题相关图片如下：qq图片20170902215506.png
此主题相关图片如下：qq图片20170902215506.png多谢！
-- 发布时间：2017/9/2 22:01:00
--
这是文件
-- 发布时间：2017/9/2 22:05:00
--
文件呢
-- 发布时间：2017/9/2 22:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产效率代码求助.rar |
-- 发布时间：2017/9/2 22:40:00
--
\'\'\' DataColChanged
If e.DataCol.Name = "审批"
If e.DataRow("审批") = True
If e.DataRow.IsNull("操作员") = False
Dim ss As String = e.DataRow("操作员")
For Each s As String In ss.split("，")
Dim dr As DataRow = DataTables("每人生产效率日报").AddNew
dr("机台") = e.DataRow("机台")
dr("产品") = e.DataRow("产品")
dr("操作员") = s
dr("效率") = e.DataRow("效率")
dr("审批") = True
Next
End If
Else
Dim filter As String
filter = "机台=\'" & e.DataRow("机台") & "\' and 产品=\'" & e.DataRow("产品")
filter += "\' and 操作员 in (\'" & e.DataRow("操作员").replace("，","\',\'") & "\')"
DataTables("每人生产效率日报").DeleteFor(filter)
End If
End If
-- 发布时间：2017/9/2 23:54:00
--
老师好：
在《生产效率日报》中，操作员没有分开，与机台生产记录是一样的。
麻烦再看看
多谢了。
-- 发布时间：2017/9/2 23:57:00
--
老师，是正确的。
-- 发布时间：2017/9/3 11:52:00
--
5楼代码没问题，或者参考
http://www.foxtable.com/webhelp/scr/2400.htm