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

 已经写过给你了啊。

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=60648&skin=0

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60223&authorid=0&page=0&star=2

 就是多加一个条件的事。

 比如原先的条件是 "条件一 = 'xxx'" 那现在就改成 "条件一 = 'xxx' And 条件二 = 'yyy'"

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

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

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

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

 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