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


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

主题:一键清空表A录入的全部数据代码

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 Datatables("表A").DataRows.Clear

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


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

Syscmd.Project.SaveAs()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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}")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/4 10:24:00 [显示全部帖子]

 For Each dc As DataCol In DataTables("表A").DataCols
    If dc.Expression = "" Then
        DataTables("表A").ReplaceFor(dc.Name,Nothing)
    End If
Next

 回到顶部