令人目瞪口呆的效率差别(有修正) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 令人目瞪口呆的效率差别(有修正)

共有42873人关注过本帖树形打印复制链接主题：令人目瞪口呆的效率差别(有修正)

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/12/9 20:08:00 [只看该作者]

呵呵，我知道了，不过要显示出来还要 DataTables("表A").load(false)

[此贴子已经被作者于2010-12-9 20:52:20编辑过]

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2010/12/9 20:40:00 [只看该作者]

以下是引用lxl在2010-12-9 20:00:00的发言：
Dim cmd As New SQLCommand
cmd.CommandText = "update {表A} a Left Join {表A} b on a.第一列 = b.第二列 set a.第三列 = True where b.[_Identify] Is Null"
cmd.ExecuteNonQuery

lxl版主上面的代码是贺老师下面代码一样的功能吗，怎么没有显示下面代码的效果

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = " & dr("第一列") ) Is Nothing Then
        dr("第三列") = True
    Else
        dr("第三列") = False
    End If
Next

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/12/9 20:53:00 [只看该作者]

最后面加上16楼的代码

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2010/12/9 21:09:00 [只看该作者]

谢谢mr725先生！Lxl版主这个好像与16楼的不大搭界。

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/12/9 21:15:00 [只看该作者]

以下是引用老有所乐在2010-12-9 21:09:00的发言：
谢谢mr725先生！Lxl版主这个好像与16楼的不大搭界。

错了，对不起啦~ 是61楼。。。。也就是：DataTables("表A").load(false)

[此贴子已经被作者于2010-12-9 21:16:09编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/12/9 21:39:00 [只看该作者]

nnd，我得好好学习一下SQL啦，我居然看不懂。

liuruihua	小大 67楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2010/12/10 11:07:00 [只看该作者] 用户已被锁定