[已解决]请问老师 ：执行完重添后单击文本框时提示“无效属性值”

hkuanen

打扰了各位老师：
       执行完重添后单击文本框时提示“无效属性值”程序中断执行，请问是怎么回事，如何解决？
       详情请看附件，衷心感谢！
       祝一切顺利！
           （登录名：admin 密码：123456） My Documents.zip (193.18 KB, 下载次数: 17)

2011-10-25 22:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-26 00:08

问题找到了 ComboBox(选项控件的)Style 属性(非必选选项中内容)
但奇怪他默认要必选,会不会是版本问题?
用下面的代码!默认选第一个吧! 可以暂时解决这个问题!

1. Sub 清空内容()
   
2. 'On Error Resume Next
   
3. Dim MEcont As Object
   
4.   For Each MEcont In Me.Controls
   
5.     If TypeName(MEcont) = "TextBox" Then MEcont.Text = ""
   
6.     If TypeName(MEcont) = "ComboBox" Then MEcont.Value = MEcont.List(0)'默认选第一个
   
7.   Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

mxg825

暂时还查不出原因!
但你的
1.清空代码要优化一下!
2.选项优化一下!

1. Sub 清空内容()
   
2. 'On Error Resume Next
   
3.   For x = 0 To Me.Controls.Count - 1
   
4.    If TypeName(Me.Controls(x)) = "TextBox" Or _
   
5.       TypeName(Me.Controls(x)) = "ComboBox" Then
   
6.       Me.Controls(x).Text = ""
   
7.     End If
   
8.   Next x
   
9. End Sub

复制代码

1. Private Sub UserForm_Initialize()
   
2. 性别.List = Array("男", "女")
   
3. 文化程度.List = Array("小学", "初中", "高中", "大学", "研究生", "博士生")
   
4. 部门.List = Array("人事部", "策划部", "生产部", "财务部", "市场部")
   
5. 职位.List = Array("职员", "经理", "副经理")
   
6. End Sub

复制代码

mxg825

问题找到了 ComboBox(选项控件的)Style 属性(非必选选项中内容)
但奇怪他默认要必选,会不会是版本问题?
用下面的代码!默认选第一个吧! 可以暂时解决这个问题!

1. Sub 清空内容()
   
2. 'On Error Resume Next
   
3. Dim MEcont As Object
   
4.   For Each MEcont In Me.Controls
   
5.     If TypeName(MEcont) = "TextBox" Then MEcont.Text = ""
   
6.     If TypeName(MEcont) = "ComboBox" Then MEcont.Value = MEcont.List(0)'默认选第一个
   
7.   Next
   
8. End Sub

复制代码