[求助]关于索引数据并自动填充的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "车间名称","工序明细","产品图号"
        If e.DataRow.IsNull("车间名称") Then
            e.DataRow("工时明细") = Nothing
        Else
            Dim filter As String = "产品图号 = '" & e.DataRow("产品图号") & "'"
            Dim fdr As DataRow = DataTables("工时统计表").Find(filter)
            Dim sum As Double = 0
            Dim str As String = ""
            If fdr IsNot Nothing Then
                For Each dc As DataCol In DataTables("工时统计表").DataCols
                    If dc.Name.StartsWith("工序_") AndAlso fdr(dc.name) > 0 Then
                        Dim dr As DataRow = DataTables("工序明细").Find("车间 = '" & e.DataRow("车间名称") & "' and 工序列名称 = '" & dc.Name & "'")
                        If dr IsNot Nothing Then
                            str &= dr("工序名称") & ","
                        End If
                        sum += fdr(dc.name)
                    End If
                Next
            End If
            e.DataRow("工序明细") = str.trim(",")
            e.DataRow("工时明细") = sum
        End If
End Select

是在”工序明细“表里面的列

如果在“工时统计表”有值的列

好像是所有大于零的列的合计了

而且选择abcd和机加车间后面也有数值

好纠结啊！！！

选ABCD 和冲压车间就出来“工序”“工时”

选ABCD 和机加车间就不出来“工序” 和“工时”（或者工时为0）

Select Case e.DataCol.Name
    Case "车间名称","工序明细","产品图号"
        If e.DataRow.IsNull("车间名称") Then
            e.DataRow("工时明细") = Nothing
        Else
            Dim filter As String = "产品图号 = '" & e.DataRow("产品图号") & "'"
            Dim fdr As DataRow = DataTables("工时统计表").Find(filter)
            Dim sum As Double = 0
            Dim str As String = ""
            If fdr IsNot Nothing Then
                For Each dc As DataCol In DataTables("工时统计表").DataCols
                    If dc.Name.StartsWith("工序_") AndAlso fdr(dc.name) > 0 Then
                        Dim dr As DataRow = DataTables("工序明细").Find("车间 = '" & e.DataRow("车间名称") & "' and 工序列名称 = '" & dc.Name & "'")
                        If dr IsNot Nothing Then
                            str &= dr("工序名称") & ","
                            sum += fdr(dc.name)
                        End If
                    End If
                Next
            End If
            e.DataRow("工序明细") = str.trim(",")
            e.DataRow("工时明细") = sum
        End If
End Select

加了一个这个就实现了

好好研究研究这个公式

非常完美

感谢有点甜的版主

想学习，没密码打不开？

以下是引用xianzheng在2015-1-4 14:28:00的发言：

想学习，没密码打不开？

147

主题：[求助]关于索引数据并自动填充的问题