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

下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目3.table  下载信息  [文件大小：320.0 KB  下载次数：0] 点击浏览该文件:管理项目3.table 请再帮我看看，哪里错了。 .NET Framework 版本：2.0.50727.7905 Foxtable 版本：2014.11.11.1 错误所在事件：表，数据， DataColChanged 详细错误信息： 调用的目标发生了异常。 从字符串“”到类型“Boolean”的转换无效。 输入字符串的格式不正确。

 呃，各个列换成 逻辑 列

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

仔细研究了以上代码，发现有个问题，如果按照“大红袍”的代码得出的结果“作业标准”都是1,而实际情况是有21个标准工序.是不是得出这个标准工序给的条件不够，应该还要加上代表型号与“检查、切边···”为*都满足的情况下才能取“作业标准”?

是的，就是不知道错在哪里？

甜老师，来看看呢

 测试没有问题啊。

 列名要对应起来啊。

 

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