以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想做一个清空按钮,如何清空当前行数据,但不删除该行。代码如何写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13087)

--  作者:lgcfoxtable
--  发布时间:2011/9/27 13:13:00
--  我想做一个清空按钮,如何清空当前行数据,但不删除该行。代码如何写?

我想做一个清空按钮,如何清空当前行数据,但不删除该行。代码如何写?


--  作者:狐狸爸爸
--  发布时间:2011/9/27 14:23:00
--  

Dim r As Row  = Tables("XXX").Current

For Each c As Col In Tables("XXX").Cols

     r(c.name) = Nothing

Next


--  作者:lgcfoxtable
--  发布时间:2011/9/27 15:41:00
--  

谢谢

 


--  作者:hiliuyong
--  发布时间:2013/8/13 16:32:00
--  

如果是清空某张表的内容,代码如何写呢?


--  作者:狐狸爸爸
--  发布时间:2013/8/13 16:33:00
--  

DataTables("xxx").DataRows.Clear()


--  作者:nddz_yj
--  发布时间:2015/7/22 9:45:00
--  
上面的命令试了一下  可以删除整张表
有没有只删除内容  不删除表达方式
谢谢

--  作者:大红袍
--  发布时间:2015/7/22 9:48:00
--  
以下是引用nddz_yj在2015/7/22 9:45:00的发言:
上面的命令试了一下  可以删除整张表
有没有只删除内容  不删除表达方式
谢谢

 

For Each dc As DataCol In DataTables("表A").DataCols
    Dim pi As System.Reflection.PropertyInfo = dc.Gettype.getproperty("IsTemporary",Reflection.BindingFlags.nonpublic Or Reflection.BindingFlags.Instance)
    If pi.getvalue(dc,Nothing) = False
        DataTables("表A").ReplaceFor(dc.Name, Nothing)
    End If
Next