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吗,代码如何写啊?
[此贴子已经被作者于2012-4-20 11:41:44编辑过]