用一行保存一个房间的信息,不是应该有一列【是否出租】?
Dim t As Table = Tables("表A")
If t.current("是否出租") = True Then
Else
End If