- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一键还原窗口内的所有组合框控件为初始状态 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37866)
-- 发布时间：2013/7/13 13:05:00
-- 一键还原窗口内的所有组合框控件为初始状态
大家好！请问大家，我在窗口里面建立好多组合框，请问能够设置一按钮，可以点击这个按钮实现，所有组合框都回到初始状态呢（即，没有在下拉列表中做任何选择的状态）。
还有就是，附件中除了“main”以外的其他表可以隐藏么？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2013/7/13 13:12:00
--
For Each t As Table In Tables
If t.Name<> "表A" Then
t.Visible = False
End If
Next
-- 发布时间：2013/7/13 13:15:00
--
Dim s() As String ={"控件名1","控件名2"}
For i As Integer = 0 To s.Length -1
Forms("窗口1").Controls(s(i)).Value = Nothing
Next
-- 发布时间：2013/7/13 13:17:00
--
你弄个开发版的格式，试用版用户插不上嘴了。
哪个表都可以隐藏。
For Each c As WinForm.Control In e.Form.Controls
If TypeOf c Is WinForm.ComboBox Then
Dim cmb As WinForm.ComboBox = c
cmb.Text = ""
ElseIf TypeOf c Is WinForm.TextBox Then
Dim txt As WinForm.TextBox = c
txt.Text = ""
ElseIf TypeOf c Is WinForm.CheckedComboBox Then
Dim chcmb As WinForm.CheckedComboBox = c
chcmb.Text = ""
End If
Next
-- 发布时间：2013/7/13 15:13:00
--
感谢版主！