主题：[求助] 狐表可以实现以下要求吗？

是。或者改代码

e.DataRow("能力") = val(fdr(e.DataRow("作业标准")))

 列名要对应起来啊。

Dim ary() As String = {"检查1","切边1","自动切边1","磁检1","套弹簧1","封油脂1","组装1","防锈包装1","称油脂1","返工1"}
Select Case e.DataCol.Name
    Case "型号"
        If e.NewValue = Nothing Then
            e.DataRow("作业标准") = Nothing
            e.DataRow("能力") = Nothing
        Else
            e.DataTable.DataCols("检查").RaiseDataColChanged(e.DataRow)
        End If
    Case Else
        If array.IndexOf(ary, e.DataCol.Name) > -1 Then
            Dim filter As String = "1=1"
            For Each a As String In ary
                If e.DataRow.IsNull(a) OrElse e.DataRow(a) = False Then
                    filter &= " and " & a.Replace("1", "") & " Is null"
                Else
                    filter &= " and " & a.Replace("1", "") & " = '*'"
                End If
            Next
            Dim fdr As DataRow = DataTables("工序标准").Find(filter)
            If fdr IsNot Nothing Then
                e.DataRow("作业标准") = fdr("标准工序")
                If DataTables("标准能力").DataCols.Contains(fdr("标准工序")) Then
                    filter = "型号 = '" & e.DataRow("型号") & "'"
                    fdr = DataTables("标准能力").Find(filter)
                    If fdr IsNot Nothing Then
                        e.DataRow("能力") = val(fdr(e.DataRow("作业标准")))
                    Else
                        e.DataRow("能力") = Nothing
                    End If
                Else
                    e.DataRow("能力") = Nothing
                End If
            Else
                e.DataRow("作业标准") = Nothing
                e.DataRow("能力") = Nothing
            End If
        End If
End Select