Dim ip As String = Tables("表A").Current("IP地址")
Tables("表B").Filter = " IP地址 = '" & ip & "'"
If Tables("表B").Rows.Count = 0 Then Dim dr As Row = Tables("表B").AddNew() dr("IP地址") = ipEnd If