[求助] 狐表可以实现以下要求吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:第1生产课仕上标准工序表(201506).xls

1.excel中红色框工序输入“*”，根据工序标准中的对应的工序“*”，选择对应的作业标准，在本表L列中显示如黄色区域标识

2.根据A列型号和L列的作业标准，在标准能力中找到对应的能力。如：GT095K2，作业标准1，能力600。

以上EXCEL可以实现，但是数据时有点慢，请各位看看是否可以使用狐表计算，谢谢。

[此贴子已经被作者于2015/6/4 19:44:00编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

附上项目

自己顶一下，等高手指点啊

Dim ary() As String = {"检查","切边","自动_切边","磁检","套弹簧","封油脂","组装","防锈_包装","称油脂","返工"}
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) Then
                    filter &= " and " & a & " Is null"
                Else
                    filter &= " and " & a & " = '*'"
                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)
                    e.DataRow("能力") = fdr(e.DataRow("作业标准"))
                Else
                    e.DataRow("能力") = Nothing
                End If
            Else
                e.DataRow("作业标准") = Nothing
                e.DataRow("能力") = Nothing
            End If
        End If
End Select

谢谢，基本可以了，但是如果标准能力没有数据的话，会出现错误。

.NET Framework 版本：2.0.50727.7905

Foxtable 版本：2014.11.11.1

错误所在事件：表，数据，DataColChanged

详细错误信息：

调用的目标发生了异常。

从字符串“”到类型“Double”的转换无效。

输入字符串的格式不正确。

是不是要把能力的类型改成整数啊

是。或者改代码

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

项目中数据表中的工序原来是用“*”表示，但是我想用逻辑列，然后转换成“*”，在检查列中IIF([检查1]='true','*','')，但是所写代码就无效了。再请大侠赐教？

Dim ary() As String = {"检查","切边","自动切边","磁检","套弹簧","封油脂","组装","防锈包装","称油脂","返工"}
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 & " Is null"
                Else
                    filter &= " and " & a & " = '*'"
                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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

请再帮我看看，哪里错了。

.NET Framework 版本：2.0.50727.7905

Foxtable 版本：2014.11.11.1

错误所在事件：表，数据， DataColChanged

详细错误信息：

调用的目标发生了异常。

从字符串“”到类型“Boolean”的转换无效。

输入字符串的格式不正确。

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