求教：怎么把Function过程的参数用在表达式判断里面的时候，控件在子窗体里面要怎么写？

ruift　发表于：2019-12-17 20:30:07 　

前天问过同类的问题：http://www.accessoft.com/bbs/showtopic.asp?ID=31433&BoardID=17
现在我的写法改成了这样：

Public Function 控件值(str窗体名称, str控件名称 As String) As Integer
If Forms(str窗体名称).controls(str控件名称) < 0 Then

Else

End If
End Function

可是，又遇到新的问题。当这个“str窗体名称”是一个子窗体，“str控件名称”在这个子窗体里面的时候，又提示说找不到引用的窗体了。
请问，这种情况要怎么写呢？

Top

西出阳关无故人发表于：2019-12-25 10:22:42

试一下:

Public Function 控件值( CT As control) As Integer

If CT < 0 Then

Else

End If

End Function

使用的时候:

dim ct as control,x

set ct=me.控件名称 '如果是子窗体中的控件:set ct=me.子窗体名称.form.controls("控件名称")

x=控件值(ct)

Top

西出阳关无故人发表于：2019-12-25 10:54:33

又或:

Public Function 控件值(控件路径 As String) As Integer
'控件路径就是控件的路径,比如窗体1上的a控件,路径为"窗体1\a",又如窗体2的b子窗体的控件c,路径为"窗体2\b\c",总之用"\"或其他特殊符号进行分隔
Dim arr
arr = Split(控件路径, "\")
Select Case UBound(arr)
Case 1
If Forms(arr(0)).Controls(arr(1)) < 0 Then

Else

End If
Case 2
If Forms(arr(0)).Controls(arr(1).Form.Controls(arr(2))) < 0 Then

Else

End If
Case 3
If Forms(arr(0)).Controls(arr(1).Form.Controls(arr(2)).Form.Controls(arr(3))) < 0 Then

Else

End If
'case 4
'比较少,如果用到,自己另行编制代码
End Select
End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求教：怎么把Function过程的参数用在表达式判断里面的时候，控件在子窗体里面要怎么写？