你要做什么?直接说
Dim t As Table = Tables("weixindanhao.weixin")For Each r As Row In t.rows r("zhun")="true"Next