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


  共有3202人关注过本帖树形打印复制链接

主题：关于更新后
帅哥哟，离线，有人找我吗？
ygg8310
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：989 积分：8827 威望：0 精华：0 注册：2016/4/10 14:33:00 		关于更新后  发帖心情 Post By：2019/9/24 16:08:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
ygg8310
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：989 积分：8827 威望：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
Next
就这个代码了
 回到顶部
帅哥哟，离线，有人找我吗？
ygg8310
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：989 积分：8827 威望：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
                End If
            End If
        End If
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 5 次数据查询