以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  换成按钮代码应该怎么改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82898)
--  作者：jinzhengbe
--  发布时间：2016/3/27 10:51:00
--  换成按钮代码应该怎么改
   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 =e.DataRow("shuliang")
    t.addnew(cc)
End If

这段代码我想放到按钮代码里
应该怎么改？
--  作者：大红袍
--  发布时间：2016/3/27 13:13:00
--  

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

 

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)
--  作者：jinzhengbe
--  发布时间：2016/3/28 19:36:00
--  
我也不想啊，主要是我找不到这方面的帮助啊，感谢，非常感谢