以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  要将一个表中所有数值型的内容清零或清空 代码如何写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83166)

--  作者:jswjyjf
--  发布时间:2016/4/1 22:39:00
--  要将一个表中所有数值型的内容清零或清空 代码如何写?
要将一个表中所有数值型的内容清零或清空 代码如何写?
--  作者:9602084
--  发布时间:2016/4/1 23:02:00
--  
For Each c As Col In Tables("表A").Cols
    If c.IsNumeric Then
        For Each dr As Row In Tables("表A").Rows
            dr(c.name) = 0
        Next
    End If
Next
--  作者:Hyphen
--  发布时间:2016/4/2 9:29:00
--  
也可以参考http://www.foxtable.com/help/topics/1532.htm