主题：设备快速选择

在“工程和工时”表中，列出了 产品的工序（工程）是在哪些机器上加工的（比如MM产品MM工序是在A1或A2机器上生产的）。

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

谢谢老师，我点击了一下有设备的工序，没反应，不知问题出在哪里？

 

请看懂2楼代码，根据你的 部品id和工程序号 查找对应的值的。必须匹配才有值。

 

也有可能理解错了你的意思，请截图举例说明你要的功能

Dim idx As String = e.Col.Name.Replace("第", "").Replace("序_调度设备", "")
    Dim fdr As DataRow = DataTables("工程和工时").Find(filter & " and 工序序号 = '" & idx & "'")

为了取出序号的值，比如 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 & "'")

解决了，谢谢老师

另有一个问题，还要麻烦老师：如在“工程和工时”表中，

参考

 

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

老师，这三句不明白