主题：[求助]跨表填充，增加判断条件后死机（已解决）

并不是死机,而是效率问题导致的.  等个2分钟就好了.

回Bin老师：好像不是吧，先运行短代码，然后运行长代码N次，都很快，4秒左右。但是打开项目，直接运行长代码，就死机，不止2分钟的。

GOOD

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

点击浏览该文件:案列.rar

谢谢wjl-se老师和Bin老师的新方案，经测试还是存在问题，重新做了一个案例上传。

这样试试，我测试可以：

'日期转换
Dim rq As Date = Today()
'删除加班补休填报所有行
DataTables("在册名单").DeleteFor("[编号] Is Not Null ")
MainTable= Tables("在册名单")
'填充编号
Dim f As New Filler
f.SourceTable = DataTables("名册清单") '指定数据来源
f.SourceCols = "编号,入监日期,离监日期" '指定数据来源列
f.DataTable = DataTables("在册名单") '指定数据接收表
f.DataCols = "编号,入监日期,离监日期" '指定数据接收列
f.Filter = "入监日期 <= '" & rq & "' And 离监日期 > '" & rq & "'"
f.Fill() '填充数据
For Each dr As DataRow In DataTables("在册名单").DataRows
    Dim pr As DataRow
    If dr.IsNull("编号") Then
        dr("单位") = Nothing
    Else
        pr = DataTables("变动日期").Find("编号 = '' ")
        pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & _
"' And 变动日期 <= '" & rq & "'","变动日期 Desc")
        If pr IsNot Nothing Then
            dr("监区") = pr("监区")
            dr("单位") = pr("单位")
            dr("变动日期") = pr("变动日期")
        End If
    End If
Next
Tables("在册名单").Sort = "单位,编号"
Tables("在册名单").AutoSizeCols()
Tables("在册名单").Cols.Frozen = 4
Tables("在册名单").ListMode = True
With Tables("在册名单") '返回最末行
    .Position = .Rows.Count - 1
End With

谢谢e-png老师的回复，代码测试，符合要求，速度也正常，解决了大问题，再次衷心感谢e-png老师的热心帮助！！

 为什么加pr = DataTables("变动日期").Find("编号 = '' ") 这段代码，问题就解决了，没有道理啊，不会是Foxtable的一个bug吧。

我也来凑凑热闹

 

'日期转换
Dim rq As Date = Today()
'删除加班补休填报所有行
DataTables("在册名单").DeleteFor("[编号] Is Not Null ")
MainTable= Tables("在册名单")

 

Dim cmd As new SQLCommand
cmd.CommandText = "Select d.*, c.入监日期, c.离监日期 from {名册清单} As c inner join (Select b.编号, b.监区, b.单位, b.变动日期 from (Select 编号,max(变动日期) As 变动日期 from {变动日期} where 变动日期 <= #" & rq & "# group by 编号) As a inner join {变动日期} As b  on a.编号 = b.编号 And a.变动日期 = b.变动日期) As d on c.编号 = d.编号" _
 & " where " & "入监日期 <= #" & rq & "# And 离监日期 > #" & rq & "#"
Dim f As New Filler
f.SourceTable = cmd.ExecuteReader
f.DataTable = DataTables("在册名单") '指定数据接收表
f.Fill() '填充数据

 

Tables("在册名单").Sort = "单位,编号"
Tables("在册名单").AutoSizeCols()
Tables("在册名单").Cols.Frozen = 4
Tables("在册名单").ListMode = True
With Tables("在册名单") '返回最末行
    .Position = .Rows.Count - 1
End With
'DataTables("在册名单").Save()
 

谢谢甜老师的回复，同样运行正常，符合所需的效果，多了一个方案，代码还需要消化一下，收藏了。谢谢甜老师。