Records.RemoveAll(Function(item) item.证券代码 <> SelectedStock AndAlso item.交易匹配 <> SelectedStock & “-”)