主题：自定义函数

在例子中自定义了以下函数，在表B中使用该函数，提示错误：

Dim dr As DataRow = DataTables("表A").find("第一列 = '" & Args(0) & "'")
If dr IsNot Nothing Then
    Args(1) = dr("第二列")
End If
Return Args(1)

应该怎么修改

.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：自定义函数QuZiHanShu
详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目38.foxdb

Dim dr As DataRow = DataTables("表A").find("第一列 = '" & Args(0) & "'and 第三列 = '" & Args(1) & "'and 第四列 = '" & Args(2) & "'and 第五列 = '" & Args(3) & "'")
Dim str As String = ""
If dr IsNot Nothing Then
    str = dr("第二列")
End If
Return str

把函数修改如上，使用函数如下，由于参数较多，使用黄色部分定义条件，提示错误，该怎么修改？

Dim filter As String = "e.DataRow("第一列"),e.DataRow("第三列"),e.DataRow("第四列"),e.DataRow("第五列")" 

Select Case e.DataCol.name
    Case "第一列"
        e.DataRow("第二列") = Functions.Execute("QuZiHanShu",e.DataRow("第一列"),e.DataRow("第三列"),e.DataRow("第四列"),e.DataRow("第五列")    )
End Select

Dim dr As DataRow = DataTables("表A").find(args(0))
Dim str As String = ""
If dr IsNot Nothing Then
    str = dr("第二列")
End If
Return str

把函数修改如上,使用函数如下,由于参数较多,使用黄色部分定义条件,提示错误,该怎么修改?

Dim filter As String = "第一列 = '" & e.DataRow("第一列") & "'and 第三列 = '" & e.DataRow("第三列") & "'"
Select Case e.DataCol.name
    Case "第一列"
        e.DataRow("第二列") = Functions.Execute("QuZiHanShu", filter)
End Select