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


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

主题:一键清空表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


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望: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 下一页