以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一键清空表A录入的全部数据代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59417)

--  作者:xjc620
--  发布时间:2014/11/3 22:54:00
--  一键清空表A录入的全部数据代码
请教老师:一键清空表A录入的全部数据代码,还有一键项目另存为的代码?
--  作者:有点甜
--  发布时间:2014/11/3 22:56:00
--  
 Datatables("表A").DataRows.Clear
--  作者:有点甜
--  发布时间:2014/11/3 22:56:00
--  
Syscmd.Project.SaveAs()
--  作者:xjc620
--  发布时间:2014/11/3 23:02:00
--  
老师这个清空数据,连同增加的行都清空,我想要是的只清空录入的数字
--  作者:xjc620
--  发布时间:2014/11/3 23:09:00
--  
就是想要全选表A然后删除里面录入的数,并不是把增加的行都清空
--  作者:y2287958
--  发布时间:2014/11/4 6:37:00
--  
For Each dc As DataCol In DataTables("表名").DataCols
    DataTables("表名").ReplaceFor(dc.Name,Nothing)
Next

--  作者:有点甜
--  发布时间:2014/11/4 9:15:00
--  

 看6楼,简单一点就这样

 

CurrentTable.Select
Sendkeys.Send("{DELETE}")


--  作者:xjc620
--  发布时间:2014/11/4 9:18:00
--  
如果是多表的话呢,就是想一键清除表A,表B,表C
--  作者:有点甜
--  发布时间:2014/11/4 9:20:00
--  

 看6楼,要删除哪个表,就填哪个表


--  作者:xjc620
--  发布时间:2014/11/4 10:23:00
--  
执行这个
For Each dc As DataCol In DataTables("表名").DataCols
    DataTables("表名").ReplaceFor(dc.Name,Nothing)
Nex
时提示二保支出列为只读,什么情况