If e.DataCol.Name = "房号"  Then

    If e.NewValue Is Nothing Then

        e.DataRow("总水电") = Nothing

        e.DataRow("总维修") = Nothing

    Else

        Dim dr As DataRow

        Dim dt As DataRow

        dr = DataTables("水电计费").Find("[房号] = \'" & e.NewValue & "\'")

        dt = DataTables("三月维修").Find("[房号] = \'" & e.NewValue & "\'")

        If dr IsNot Nothing

            e.DataRow("总水电") = dr("水电合计")

        If dt IsNot Nothing

            e.DataRow("总维修") = dt("总金额")

        End If

        End If

    End If

End If

以上是表A引用表“水电计费”的水电合计列和表“三月维修”的总金额列

现问题是表“水电计费”有4月份、5月份，能先筛选4月份的数值再引用到表A吗，代码如何写啊？