我弄了个筛选条件的函数，函数名称为FilterNY3Dim e = Args(0)
Dim N1 As Integer = e.Form.Controls("NF").value
Dim Y2 As Integer = e.Form.Controls("YF2").value
Dim FilterNY3 As String = "年份=" & n1 & " and 月份=" & y2 & ""
然后在窗口控件中调用时显示是空值，控件中已录入了值
Functions.Execute("FilterNY3", e)
窗口录入年份月份后，msgbox(FilterNY3)显示是空值
函数
……
Dim FilterNY3 As String = "年份=" & n1 & " and 月份=" & y2 & ""
return FilterNY3
窗口控件
dim 返回值 as string = Functions.Execute("FilterNY3", e)
msgbox(返回值 )