[求助]执行内部函数死循环 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师，以下代码（通过基本信息的姓名与线索、案件数据的被调查人比对，如发现数据库中有同名的，则把有关信息添加至查询结果库中）在命令窗口执行正常，但做成一内部函数bbdata(在首尾分别加上Dim e As RequestEventArgs = Args(0))、e.Handled = True），用代码：图片点击可在新窗口打开查看

去调用，出现死循环，该怎么解决？谢谢！

DataTables("协审查询结果").DataRows.Clear()

Dim dt1 As DataTable = DataTables("基本信息")

Dim dt2 As DataTable = DataTables("线索数据")

Dim dt3 As DataTable = DataTables("案件数据")

Dim dt4 As DataTable = DataTables("协审查询结果")

Dim i As Integer = 0

For Each dr1 As DataRow In dt1.DataRows

Dim xm As String = dr1("姓名").trim()

Dim drs2 As List(Of DataRow)

drs2 = dt2.Select("被调查人 = '" & xm & "'")

For Each dr2 As DataRow In drs2

Dim dr4 As DataRow = dt4.AddNew()

dr4("姓名") = dr2("被调查人")

dr4("身份证号码") = ""

dr4("现单位") = dr1("单位")

dr4("处理类型") = dr2("组织措施")

dr4("处理事由") = dr2("简要案情")

dr4("处理时间") = dr2("处理时间")

dr4("时任单位职务") = dr2("工作单位及职务")

dr4("备注") = ""

Dim cllx As String = dr2("组织措施")

If cllx.Contains("诫勉") Then

If Not dr2.IsNull("处理时间") Then

dr4("影响时限") = dr2("处理时间").AddMonths(6)

End If

Else

If Not dr2.IsNull("处理时间") Then

dr4("影响时限") = dr2("处理时间")

End If

Dim drs3 As List(Of DataRow)

drs3 = dt3.Select("被调查人 = '" & xm & "'")

For Each dr3 As DataRow In drs3

Dim dr4 As DataRow = dt4.AddNew()

dr4("姓名") = dr3("被调查人")

dr4("身份证号码") = ""

dr4("现单位") = dr1("单位")

dr4("处理类型") = dr3("党纪处分") + "*" + dr3("政纪处分")

dr4("处理事由") = dr3("简要案情")

dr4("处理时间") = dr3("结案时间")

dr4("影响时限") = ""

dr4("时任单位职务") = dr3("工作单位及职务")

dr4("备注") = ""

Dim djcf As String = dr3("党纪处分")

If djcf.Contains("开除党籍") Then