以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何清除窗口已经录入数据？(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10275)
--  作者：YDS
--  发布时间：2011/5/27 17:26:00
--  如何清除窗口已经录入数据？(已解决)

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

[此贴子已经被作者于2011-6-13 8:38:40编辑过]
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：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编辑过]

 

有聪明点的方法不？
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：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
--  发布时间：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
--  发布时间：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

 

这方法非常好，十分感谢，学习了！