Foxtable(狐表)用户栏目专家坐堂 → 如何清除窗口已经录入数据?(已解决)


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

主题:如何清除窗口已经录入数据?(已解决)

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


加好友 发短信
等级:三尾狐 帖子:643 积分:3684 威望:0 精华:0 注册:2011/5/21 18:05:00
如何清除窗口已经录入数据?(已解决)  发帖心情 Post By:2011/5/27 17:26:00 [只看该作者]

数据录入窗口,如何在确认输入的时候自动清楚现在的填入数值!以便接下的输入!

[此贴子已经被作者于2011-6-13 8:38:40编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 17:38:00 [只看该作者]

笨方法:

 

e.Form.Controls("TextBox1").Value = Nothing
e.Form.Controls("TextBox2").Value = Nothing

[此贴子已经被作者于2011-5-27 17:38:20编辑过]

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


加好友 发短信
等级:三尾狐 帖子:643 积分:3684 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2011/5/27 18:53:00 [只看该作者]

以下是引用狐狸爸爸在2011-5-27 17:38:00的发言:

笨方法:

 

e.Form.Controls("TextBox1").Value = Nothing
e.Form.Controls("TextBox2").Value = Nothing

[此贴子已经被作者于2011-5-27 17:38:20编辑过]

 

有聪明点的方法不?


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 19:28:00 [只看该作者]

这样,不管控件多少个,都只需三行代码

 

Dim nms() As string  = {"控件一", "控件2", "控件三","控件n"}

For each nm as string in nms

   e.form.Controls(nm).value = nothing

next


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/27 19:51:00 [只看该作者]

帮助里:

 

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
        Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
        t.Value = Nothing
    End If
Next


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


加好友 发短信
等级:三尾狐 帖子:643 积分:3684 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2011/5/28 9:04:00 [只看该作者]

以下是引用狐狸爸爸在2011-5-27 19:28:00的发言:

这样,不管控件多少个,都只需三行代码

 

Dim nms() As string  = {"控件一", "控件2", "控件三","控件n"}

For each nm as string in nms

   e.form.Controls(nm).value = nothing

next

 

嗯这个方法不错,谢谢老爹.


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


加好友 发短信
等级:三尾狐 帖子:643 积分:3684 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2011/5/28 9:05:00 [只看该作者]

以下是引用blackzhu在2011-5-27 19:51:00的发言:

帮助里:

 

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
        Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
        t.Value = Nothing
    End If
Next

 

这方法非常好,十分感谢,学习了!


 回到顶部