主题：设备快速选择

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和工程序号 查找对应的值的。必须匹配才有值。

 

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

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

 不要放在datacolchanged事件，请单独做一个按钮生成。

 

 如果要放在datacolchanged，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=99836&skin=0

 

 根据什么逻辑判断机器是否还在忙的状态？具体说明，上传实例。