[求助]跨表填充，增加判断条件后死机（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一段代码跨表填充：

For Each dr As DataRow In DataTables("在册名单").DataRows

Dim pr As DataRow

If dr.IsNull("编号") Then

dr("单位") = Nothing

Else

pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & "' And 变动日期 <= '" & rq & "'","变动日期 Desc")

If pr IsNot Nothing Then

dr("监区") = pr("监区")

dr("单位") = pr("单位")

dr("变动日期") = pr("变动日期")

End If

运行后死机，折腾半天，找到规律：先将代码改成 pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & "'")

运行正常，然后再改回原来的代码，运行达到效果，但是重新打开项目，在运行原来的代码，依旧死机。

现在用一个笨办法，就是先运行短代码，然后运行长代码，就不会出现死机，但感觉不爽，请各位老师帮助支招，谢谢。

现在运行的代码如下：

For Each dr As DataRow In DataTables("在册名单").DataRows

Dim pr As DataRow

If dr.IsNull("编号") Then

dr("单位") = Nothing

Else

pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & "'")

If pr IsNot Nothing Then

dr("监区") = pr("监区")

dr("单位") = pr("单位")

dr("变动日期") = pr("变动日期")

End If

For Each dr As DataRow In DataTables("在册名单").DataRows

Dim pr As DataRow

If dr.IsNull("编号") Then

dr("单位") = Nothing

Else

pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & "' And 变动日期 <= '" & rq & "'","变动日期 Desc")

If pr IsNot Nothing Then

dr("监区") = pr("监区")

dr("单位") = pr("单位")

dr("变动日期") = pr("变动日期")

End If

[此贴子已经被作者于2014-4-3 13:57:42编辑过]

呵呵，也有第二呀···· ，确有其事，希望狐爸找找原因。。。。

做了一个案例，先单击”短代码“按钮，运行正常，然后单击”长代码“按钮，运行正常，符合需要的效果。

但是打开项目后，如果直接单击”长代码“按钮，就会死机，请各位老师指教，谢谢！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:案列.foxdb

[此贴子已经被作者于2014-4-2 20:02:20编辑过]

我碰到过lz的问题，这样弄一下就ok了：

························
        pr = DataTables("变动日期").datarows(0) ' 加上这一段
        pr = DataTables("变动日期").Find("编号 = '" & dr("编号") & _
        "' And 变动日期 <= '" & rq & "'","变动日期 Desc")

····························

效率问题，建议用sql语句来做，参考代码

'日期转换
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 {变动日期} 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()

谢谢e-png和有点甜两位老师的回复和指教！

两种方法试了一下，e-png老师的方法好像不见效，而有点甜老师的sql语句有点看不懂，难以理解，执行的效果可能会有问题：

1、变动日期的条件是<=，式中为=？

2、取值为变动日期的倒序，式中好像没有体现？

需要在完整的项目中进行测试。还是要再次感谢两位老师的热情帮助！！

另：跨表填充的代码比较直观，效率也可以接受，使用率很高，出现上述的问题，应该要想办法解决。

呵呵，甜老师：快不了多少。。。

e-png老师，您的方法试了一下，好像不见效，还是我的理解问题？请指教，谢谢。

Bin老师，能否帮助看一下，谢谢！

回复6楼，应该是没有问题的。但是这种sql的方法，你使用之前，先把数据来源表保存才行，这样数据才正确。

效率的话，是因为这个问题，你可以变通这改一下

http://www.foxtable.com/help/topics/2219.htm

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