紧急求助闪退问题！我这个foxtable，打开我的项目，数据几乎没有加载，转入系统菜单后，没多久【有时会闪退】，如果没闪退，打开命令窗口没多久【有时会闪退】，如果不闪退，在命令窗口转到自定义函数，并编辑某自定义函数没多久【有时会闪退】，如果没闪退，在命令窗口运行某自定义函数，【到一定时间会闪退】

代码如下：

 For j As Integer=0 To n
                \' Output.Show("正在处理股票【" & tcode(i) & "】 日期【" & tdate(j)  &  "】")
                Dim dDate As Date
                If Date.TryParse(tDate(j), dDate)  AndAlso rdate.Contains(dDate.Date) Then
                    If n=il Then
                        outTbl.Filter="[进入日期]=#" & cdate(tdate(n-j)).Date  & "#"
                        iK=n-j
                        If outTbl.Rows.Count>0 Then
                            Functions.Execute("Fun分析股票池值修改",tcode(i),dDate,cdate(tdate(IK+1)),outTbl,cdate(tdate(iif((IK+9)<iJ,IK+9,iJ))),cdate(tdate(iif((IK+19)<iJ,IK+19,iJ))))
                        End If
                    Else
                        If j=0 Then
                            xDate=cdate(tdate(j))
                        Else
                            xDate=cdate(tdate(j-1))
                        End If\'问题在此
                        outTbl.Filter="[进入日期]=#" & dDate.Date & "#"
                        If outTbl.Rows.Count>0 Then
                            \'Output.Show("正在处理股票【" & tcode(i) & "】 日期【" & tdate(j)  & "】 下日【" & xDate & "】/" & tCode.Count )
                            Functions.Execute("Fun分析股票池值修改",tcode(i),cdate(tdate(j)),xDate,outTbl,cdate(tdate(iif(j>9,j-9,0))) , cdate(tdate(iif(j>19,j-19,0))))
                        End If
                    End If
                End If
            Next
            \'If ((i+1) Mod 50)=0 Then  DataTables("特大单加仓股").Save
        Next

几乎都是在1200条附近退出，我查看了原始数据，与其它条数据没什么明显不同

 1、为什么要循环设置filter？

 2、你自定义函数里面执行了什么代码？

 3、把你项目发上来测试。