快速设备排产 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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
                Dim flag As Boolean = True
                For Each c As Col In e.Table.Cols
                    If c.name Like "*调度设备*" Then
                        Dim i As Integer = c.Name.Replace("第", "").Replace("序_调度设备", "")
                        For Each dr As DataRow In e.Table.DataTable.Select(c.name & " = '" & fdr(dc.name) & "'")
                            If dr("第" & i & "序_开始日") < e.Row("第" & i & "序_开始日") Then
                                If dr("第" & i & "序_结束日") >= e.Row("第" & i & "序_开始日") Then
                                    flag = False
                                End If
                            ElseIf dr("第" & i & "序_开始日") >= e.Row("第" & i & "序_开始日") Then
                                If dr("第" & i & "序_开始日") <= e.Row("第" & i & "序_结束日") Then
                                    flag = False
                                End If
                            End If
                        Next
                        If flag = False Then Exit For
                    End If
                Next
                If flag = True Then
                    str &= fdr(dc.name) & "|"
                End If
            End If
        Next
    End If
    e.Col.ComboList = str
End If

主题：快速设备排产