在例子中自定义了以下函数，在表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