帮我解释一下下面的代码

mcy168

Dim num, t, i, strTag Dim objCtr If Len(strName) > 0 Then Set objCtr = Me.Controls(strName) Else Set objCtr = Me.ActiveControl End If strTag = objCtr.Tag '控件对应的子窗体 For i = 0 To 17 '在子窗中显示数字 Me.Controls(strTag).Form.Controls("Text" & i).Value = "" Next

jsf2008

看看书呀，新学者开始学代码好难，我也一亲

tanhong

Dim num, t, i, strTag
Dim objCtr
If Len(strName) > 0 Then 'strName中字数大于,也就是不为空,则为真,否则为假
Set objCtr = Me.Controls(strName) '自定义对象等于指定窗体控件
Else
Set objCtr = Me.ActiveControl   '否则自定义对象等于当前控件
End If
strTag = objCtr.Tag '控件对应的子窗体 ,strTag变理为子窗体标签
For i = 0 To 17 '在子窗中显示数字 ,0到17进行循环赋值,清空窗体中子窗体中所有文本控件值
Me.Controls(strTag).Form.Controls("Text" & i).Value = ""
Next
月语老弟,单就这些代码来看,怕理解不一定很全面,我只能试着理解注释一下,也不知道能否对你有否帮助.

[ 本帖最后由 tanhong 于 2008-2-2 16:02 编辑 ]

v_tang

路                                                                                                                                                                                                                                                      过

sunan

版主好人！

mag770t

江老大还是那么的热心啊

cavin88

老大的风范