Dim t As Table = Tables("机房板件端口表")
Dim r As Row = e.Table.Current
If r Is Nothing Then Return
With Tables("机房设备板件表")
If .Current IsNot Nothing Then
If r.IsNull("设备编号") Then
t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "' And 设备编号 Is Null And 板件槽位 = '" & .Current("板件槽位") & "' And 板件型号 = '" & .Current("板件型号") & "'"
Else
t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "' And 设备编号 = '" & .Current("设备编号") & "' And 板件槽位 = '" & .Current("板件槽位") & "' And 板件型号 = '" & .Current("板件型号") & "'"
End If
Else
t.Filter = "False"
End If
End With
[此贴子已经被作者于2014-9-2 19:09:03编辑过]