- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 设备快速选择 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99988)
-- 发布时间：2017/5/2 14:21:00
-- 设备快速选择
在“工程和工时”表中，列出了 产品的工序（工程）是在哪些机器上加工的（比如MM产品MM工序是在A1或A2机器上生产的）。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:精益制造管理系统.rar |
管理员 qdrA001
-- 发布时间：2017/5/2 15:12:00
--
prepareEdit事件
If e.Col.name Like "*调度设备*" Then
Dim str As String = ""
Dim filter As String = "部品id = \'" & e.Row("部品id") & "\'"
Dim idx As String = e.Col.Name.Replace("第", "").Replace("序_调度设备", "")
Dim fdr As DataRow = DataTables("工程和工时").Find(filter & " and 工序序号 = \'" & idx & "\'")
If fdr IsNot Nothing Then
For Each dc As DataCol In DataTables("工程和工时").DataCols
If dc.name.StartsWith("使用机器") AndAlso fdr.IsNull(dc.name) = False Then
str &= fdr(dc.name) & "|"
End If
Next
End If
e.Col.ComboList = str
End If
-- 发布时间：2017/5/2 15:47:00
--
谢谢老师，我点击了一下有设备的工序，没反应，不知问题出在哪里？
-- 发布时间：2017/5/2 15:55:00
--
谢谢老师，我点击了一下有设备的工序，没反应，不知问题出在哪里？
请看懂2楼代码，根据你的 部品id和工程序号 查找对应的值的。必须匹配才有值。
也有可能理解错了你的意思，请截图举例说明你要的功能
-- 发布时间：2017/5/2 16:28:00
--
Dim idx As String = e.Col.Name.Replace("第", "").Replace("序_调度设备", "")
Dim fdr As DataRow = DataTables("工程和工时").Find(filter & " and 工序序号 = \'" & idx & "\'")
-- 发布时间：2017/5/2 16:32:00
--
为了取出序号的值，比如 1、2、3、4这样的值
Dim idx As String = e.Col.Name.Replace("第", "").Replace("序_调度设备", "")
去工程工时表，查找符合条件的值 "部品id = \'" & e.Row("部品id") & "\' and 工序序号 = \'" & idx & "\'"
Dim fdr As DataRow = DataTables("工程和工时").Find(filter & " and 工序序号 = \'" & idx & "\'")
-- 发布时间：2017/5/3 11:27:00
--
解决了，谢谢老师
-- 发布时间：2017/5/3 11:34:00
--
另有一个问题，还要麻烦老师：如在“工程和工时”表中，
此主题相关图片如下：1123.png
-- 发布时间：2017/5/3 11:39:00
--
参考
Dim dt As DataTable = DataTables("工程和工时")
For Each id As String In dt.GetValues("部品id")
Dim drs As List(Of DataRow) = dt.Select("部品id = \'" & id & "\'", "_sortkey")
For i As Integer = 0 To drs.count-1
drs(i)("工序序号") = i + 1
Next
Next
-- 发布时间：2017/5/3 13:08:00
--
老师，这三句不明白