Dim zcls As String =zcl.Replace(" ","")
For Each r As Row In Tables("选房窗口_table1").Rows
If zcls.Contains( r("房间号") ) Then messagebox.show("you") ' 这里能显示"you" r.Checked = True End IfNext
红色代码可以被执行到,但复选框没有被勾选上, 谁能知道代码错在哪里?