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

 加入代码，截图看看

msgbox("配件名称 = '" &  e.DataRow("配件名称")  & "' And 型号 = '" &  e.DataRow("型号")  & "' And 生产厂家 = '" &  e.DataRow("生产厂家")  & "' And 采购日期 = #" &  e.DataRow("采购日期")  & "#")

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

 代码

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