主题：[求助]跨表数据填充。

你的条件是四个，你肯定要填入四个条件，才能找到对应的数据啊

此主题相关图片如下：无标题.jpg

 

四个条件调好后，已使用数量一栏没有数字啊

 代码

 

Select Case e.DataCol.name
    Case "配件名称", "型号", "生产厂家", "采购日期"
        Dim filter As String = "1=1"
        If e.DataRow.Isnull("配件名称") Then
            filter &= " And 配件名称 = '" &  e.DataRow("配件名称")  & "'"
        End If
        If e.DataRow.Isnull("型号") Then
            filter &= " And 型号 = '" &  e.DataRow("型号")  & "' "
        End If
        If e.DataRow.Isnull("生产厂家") Then
            filter &= " And 生产厂家 = '" &  e.DataRow("生产厂家")  & "'"
        End If
        If e.DataRow.Isnull("采购日期") Then
            filter &= " And 采购日期 = #" &  e.DataRow("采购日期")  & "#"
        End If
        e.DataRow("已使用数量") =  DataTables("配件消耗清单").Compute("Sum(消耗数量)", filter)
        msgbox(filter)
End Select

红袍兄：这段代码证明是可行的，但是有个 问题就是，当“配件消耗清单”发生变化时，原来的那条记录中的“以使用数量”应该相应发生变化，但是没有。

看一下 http://www.foxtable.com/help/topics/1453.htm