Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一键清空表A录入的全部数据代码


  共有4627人关注过本帖树形打印复制链接

主题：一键清空表A录入的全部数据代码
帅哥哟，离线，有人找我吗？
xjc620
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		一键清空表A录入的全部数据代码  发帖心情 Post By：2014/11/3 22:54:00 [只看该作者]

请教老师:一键清空表A录入的全部数据代码,还有一键项目另存为的代码?

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 22:56:00 [只看该作者]

 Datatables("表A").DataRows.Clear

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 22:56:00 [只看该作者]

Syscmd.Project.SaveAs()

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/11/3 23:02:00 [只看该作者]

老师这个清空数据,连同增加的行都清空,我想要是的只清空录入的数字

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/11/3 23:09:00 [只看该作者]

就是想要全选表A然后删除里面录入的数,并不是把增加的行都清空

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/11/4 6:37:00 [只看该作者]

For Each dc As DataCol In DataTables("表名").DataCols
    DataTables("表名").ReplaceFor(dc.Name,Nothing)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/4 9:15:00 [只看该作者]

 看6楼，简单一点就这样

 

CurrentTable.Select
Sendkeys.Send("{DELETE}")
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/11/4 9:18:00 [只看该作者]

如果是多表的话呢,就是想一键清除表A,表B,表C

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/4 9:20:00 [只看该作者]

 看6楼，要删除哪个表，就填哪个表
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/11/4 10:23:00 [只看该作者]

执行这个
For Each dc As DataCol In DataTables("表名").DataCols
    DataTables("表名").ReplaceFor(dc.Name,Nothing)
Nex
时提示二保支出列为只读,什么情况
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询