------------------改成下面这样--------------------
Dim t As Table = Table("JHS")Dim cr As Row = t.CurrentIf cr("状态") = "已生效" Then