关于更新后 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于更新后

共有1997人关注过本帖树形打印复制链接主题：关于更新后

ygg8310

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8493 威望：0 精华：0 注册：2016/4/10 14:33:00

关于更新后

Post By：2019/9/24 16:08:00 [只看该作者]

各种卡死怎么破？跨表查询自动填充，一用就未响应？

ygg8310

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8493 威望：0 精华：0 注册：2016/4/10 14:33:00

Post By：2019/9/24 16:16:00 [只看该作者]

For Each r As Row In Tables("表A").rows

If DataTables("表B").Find("第一列 = '" & r("第一列") & "' And 第二列 = '" & r("第二列") & "' And 第三列 = '" & r("第三列") & "' And 日期 < '" & r("日期") & "'") Is Nothing Then

r("查找反馈") = "有"

Else

r("查找反馈") = "没有"

End If

就这个代码了

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/24 16:30:00 [只看该作者]

有多少行数据？

表格datacolchanged事件有什么代码？有没有表达式列？

ygg8310

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8493 威望：0 精华：0 注册：2016/4/10 14:33:00

Post By：2019/9/24 16:38:00 [只看该作者]

表B有2W多行，表A有7000多行

表格datacolchanged

If e.DataCol.Name <> "标记A" Then

If e.DataCol.Name <> "标记B" Then

If e.DataCol.Name <> "标记C" Then

If e.DataCol.Name <> "标记D" Then

If e.DataCol.Name <> "标记E" Then

If e.DataCol.Name <> "标记F" Then

e.DataRow("编辑时间") = Today

e.DataRow("编辑人") = User.Name

End If

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/24 17:18:00 [只看该作者]

这么多数据遍历+查询，肯定要一定的时间的，这个没有办法。不然就在窗口加个进度条显示吧。

或者试试使用sql更新

update 表A set 查找反馈='有' from 表A where exist (select 第一列 from 表B where 表A.第一列 = 表B.第一列 and 表A.第二列 = 表B.第二列 and 表A.第三列 = 表B.第三列 and 表A.日期 > 表B.日期)

下一主题 >> << 上一主题

主题：关于更新后