7,763
社区成员
发帖
与我相关
我的任务
分享为什么出错
Public Function isempty(ByVal cons As Controls) As Boolean
Dim con As Control
For Each con In cons
If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
Exit Sub
End If
End If
Next
End Function
在For k = 0 To 2 Step 1
If Check(txt(k).Text) = True Then
MsgBox "dfdfsd"
'Exit Sub
End If
Next调用时为什么出错
Dim con As Control
For Each con In cons
If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
Exit Sub
End If
End If
Next
End Function
在For k = 0 To 2 Step 1
If Check(txt(k).Text) = True Then
MsgBox "dfdfsd"
'Exit Sub
End If
Next调用时为什么出错
...全文
请发表友善的回复…
发表回复
xiaoy2000 2000-07-26
- 打赏
- 举报
第一行就错了isempty是vb保留的,他有固定的含义,不能拿他作函数名
这是错误原因,上边几个人已给出几种方法,看看吧
这是错误原因,上边几个人已给出几种方法,看看吧
bing71 2000-07-26
- 打赏
- 举报
IsEmpty是系统的一个函数,不能自定义。如果将程序中的IsEmpty改名为emptystring
If Check(txt(k).Text) = True Then
应该是：
If emptystring(txt(k)) = True Then
If Check(txt(k).Text) = True Then
应该是：
If emptystring(txt(k)) = True Then
UserReg 2000-07-25
- 打赏
- 举报
IsEmpty是系统的一个函数啊
TopHead 2000-07-25
- 打赏
- 举报
呵呵，没看懂问题，这是哪跟哪啊？：）
Tyro 2000-07-25
- 打赏
- 举报
isempty和check不会是一个函数吧？
Wingsun 2000-07-25
- 打赏
- 举报
Public Function isempty(ByVal cons As Controls) As Boolean
Dim con As Control
For Each con In cons
If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
'Exit Sub//错
Exit Function
End If
End If
Next
End Function
Dim con As Control
For Each con In cons
If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
'Exit Sub//错
Exit Function
End If
End If
Next
End Function
Limu 2000-07-25
- 打赏
- 举报
你出的问题就有问题，Check和IsEmpty是不是同一个函数，如果是，你在定义时用的参数是一个控件组(Controls)，而在调用时为什么却传一个控件的显示值(txt(k).text)进去呢？
leslielu 2000-07-25
- 打赏
- 举报
??????
什么调什么呀?
什么调什么呀?
