- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 引用数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93216)
-- 发布时间：2016/11/23 9:21:00
-- 引用数据
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产管理.zip |
开发者 密码：qdkf
目的是：在“PEQ数据”表中将“部品工程项目”相同的，从“工程和工时”里的时间，引入“绩效工时H”列里，
例如：“PEQ数据”表中将“部品工程项目”，是B7337210150JMC1装，则去“工程和工时”表里，找B7337210150J MC1
的装列的数据 即 33.8 单位是分，需要转换成小时。
“部品工程项目”最后一个字是 “段” 的话，就去引用“段”列的数据，
是机的话，就引用“机”列的数据，“装”和“毛”类推。
新手不会写代码，麻烦老师，帮写写代码呗，谢谢！
-- 发布时间：2016/11/23 9:56:00
--
DataColChanged事件
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "部品ID","工程","项目略"
If dr.IsNull("部品ID") OrElse dr.IsNull("工程") OrElse dr.IsNull("项目略") Then
dr("部品工程项目")= Nothing
dr("绩效工时H")= Nothing
Else
dr("部品工程项目") = dr("部品ID") + dr("工程") + dr("项目略")
Dim drfind As DataRow = DataTables("工程和工时").Find(CExp("部品ID=\'{0}\' and 工程=\'{1}\'",dr("部品ID") ,dr("工程")))
If drfind IsNot Nothing AndAlso drfind.IsNull(dr("项目略")) = False Then
dr("绩效工时H")= drfind(dr("项目略")) / 60
End If
End If
End Select
-- 发布时间：2016/11/23 11:37:00
--
非常好用，解决大问题了，非常感谢有点蓝老师！