主题：换成按钮代码应该怎么改

同样的问题，要别人说多少次？

Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
For i As Integer = t.rows.count-1 To 0 Step -1
    t.rows(i).delete
Next
Dim cc As Integer = Tables("表名").Current("shuliang")
t.addnew(cc)