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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于查询与赋值并存

共有2640人关注过本帖树形打印复制链接主题：关于查询与赋值并存

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/28 14:35:00 [显示全部帖子]

FIND会比SQLFIND快很多.你一直SQLFIND 还不如把数据都加载进来再FIND

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/28 14:42:00 [显示全部帖子]

如果积分兑换表的数据量非常非常庞大,远远大于积分消费表.

你可以利用查询表生成器用积分消费表作为左表兑换表作为右表关联列设置为你条件里的列.

这样这整个查询表的数据就是 If dr2 IsNot Nothing Then 这个IF条件里面的数据里,也就是有对应数据的.能找到DR的.

复制这个查询表生成器的 SQL代码. 用SQL语句再生成一个查询表 select * f rom 消费表 where _Identify not in (select _Identify f rom (复制出来的语句))

这样得出来的表,就是不存在的. 遍历它即可也就是Else里面的

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/28 14:57:00 [显示全部帖子]

Dim lst1 As New List(of DataRow)
Dim lst2 AS New List(of DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = " & dr("第一列")) Is Nothing Then
        lst1.Add(dr)
    Else
        lst2.Add(dr)
    End If
Next
For Each dr As DataRow In lst1
    dr("第三列") = True
Next
For Each dr As DataRow In lst2
    dr("第三列") = False
Next

那就用帮助这个方法试试看

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

主题：关于查询与赋值并存