0

我有一个绑定到表格的数据表表单。我添加了 2 个未绑定字段并将它们的控制源属性设置为用户定义的 VBA 函数:1. ConcatRelated ( http://allenbrowne.com/func-concat.html ) 2. 返回字符串的自定义函数:

Public Function GetLowestSatatus(LookupField As String, JSAID As Integer) As String
    On Error Resume Next
    GetLowestSatatus = DLookup(LookupField, "JsaStatuses", "ID=" & DMin("StatusID", "Tasks", "JSAID =" & JSAID))
End Function

它在我和其他一些机器上运行良好,但有些机器我得到了“#Name?” 在这两个未绑定的字段中。所有机器配置相同。

有任何想法吗?谢谢!

4

1 回答 1

1

This problem occurs when proper data is not contained in the LookupField or JSAID origin fields. To avoid this problem I use variants as arguments for user defined functions that will be called from a control's controlsource.

Public Function GetLowestSatatus(LookupField, JSAID) As String
    On Error Resume Next
    GetLowestSatatus = DLookup(LookupField, "JsaStatuses", "ID=" & DMin("StatusID", "Tasks", "JSAID =" & JSAID))
End Function
于 2013-06-28T20:45:02.557 回答