求教:access中数组的应用问题
我想制作一个窗体,编写模块过程,在按钮事件后自动检测指定文本框是否为空和0,写了以下代码,求教代码是否正确:
Public Sub IsTextBoxEmpty(tbs() As textbox)
Dim tb as TextBox (这里有as textbox,编译提示tb要[color=#FF0000]使用变体,取消则不再提示。而我在其他窗体过程写:dim ctl as control for each ctl in me.controls则没有此提示,何解?)[/color]
For Each tb In tbs()
If Len(Nz(tb.Value)) = 0 Then
Msgbox................
Exit Sub
End If
Next
End Sub
在窗体代码作如下调用:
Dim tbs() As textbox
tbs() = Array(Me.txtUserName, Me.txtPassword)
Dim a As New SystemUser
a. IsTextBoxEmpty (tbs()) (这里对tbs()提示“缺少数组或用户自定义类型”)
现在程序是不能过编译,也不知道能否运行,我也对vb集合控件、数组的使用、赋值写法有不清晰和混淆的地方,在此先贴出代码,求高人更正。
当初想法是想写一个类似sub xx(a,b,c,d........)的过程,可以动态添加过程的参数数量,这样我就可以随意指定要检测的文本框(或者有人会说可以使用controls来历遍搜索。因为窗体中不是每个文本框都有用,就没考虑这种写法),可惜功力有限,如果有更好的、更简单的写法,请高人指出。谢谢!!!!