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

输入“产品图号” 和“车间名称”  后面的“工序明细”和“工时明细”怎么上不去呢？

目录树的自动填充有值的行  该用什么命令啊？

 

无语，根据什么获取工序明细啊。

 

你必须输入，产品图号、车间名称、工序明细，才能计算工时明细啊

要达到的效果：

 你这样的设计是很糟糕的啊。

 

 必须设置好产品图号、车间名称对应的工序明细

就是说这样的想法实现不了呗

 datacochanged事件，代码如下

 

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 dc.Name.EndsWith("_工时") 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

是放在 “产品工时” 表的

datacolchanged事件下吧

  无语，没有数据就肯定没有显示啊，请认真测试。