Foxtable(狐表)用户栏目专家坐堂 → 窗口按钮依次清除多个列的内容


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

主题:窗口按钮依次清除多个列的内容

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


加好友 发短信
等级:婴狐 帖子:41 积分:431 威望:0 精华:0 注册:2015/11/4 11:23:00
窗口按钮依次清除多个列的内容  发帖心情 Post By:2015/12/18 7:20:00 [只看该作者]

我在主窗口(绑定了一个表)做了一个按钮,想点击按钮时,依次清除多个列的内容(比如列名是清除1、清除2、清除3、清除4、清除5)怎样给按钮写代码?

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/18 8:42:00 [只看该作者]

Dim colsname() As String = { "清除1","清除2","清除3","清除4","清除5" }
For i As Integer =0 To colsname.Length-1
    Tables("表A").Current(colsname(i)) = Nothing
Next

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


加好友 发短信
等级:婴狐 帖子:41 积分:431 威望:0 精华:0 注册:2015/11/4 11:23:00
  发帖心情 Post By:2015/12/18 8:53:00 [只看该作者]

辛苦了,谢谢,我试试


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


加好友 发短信
等级:婴狐 帖子:41 积分:431 威望:0 精华:0 注册:2015/11/4 11:23:00
  发帖心情 Post By:2015/12/18 9:24:00 [只看该作者]

不执行呀,把代码写进按钮,点击无反应


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/18 9:34:00 [只看该作者]

代码没问题,如果要全部清除这样写

 

Dim colsname() As String = { "清除1","清除2","清除3","清除4","清除5" }
For i As Integer =0 To colsname.Length-1
    DataTables("表A").ReplaceFor(colsname(i), nothing)
Next

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


加好友 发短信
等级:婴狐 帖子:41 积分:431 威望:0 精华:0 注册:2015/11/4 11:23:00
  发帖心情 Post By:2015/12/18 9:39:00 [只看该作者]

谢谢,我再试试

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


加好友 发短信
等级:婴狐 帖子:41 积分:431 威望:0 精华:0 注册:2015/11/4 11:23:00
  发帖心情 Post By:2015/12/18 9:45:00 [只看该作者]

谢谢,行了


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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2016/6/1 16:52:00 [只看该作者]

我只清除对应行的那几列内容怎么代码怎么写呢?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/1 16:53:00 [只看该作者]

以下是引用cd_tdh在2016/6/1 16:52:00的发言:
我只清除对应行的那几列内容怎么代码怎么写呢?

 

Dim colsname() As String = { "清除1","清除2","清除3","清除4","清除5" }
For i As Integer =0 To colsname.Length-1
    Tables("表A").Current(colsname(i)) = Nothing
Next

 回到顶部