Foxtable(狐表)用户栏目专家坐堂 → 求助,查找并删除符合条件的行


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

主题:求助,查找并删除符合条件的行

帅哥哟,离线,有人找我吗?
BG小白
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
求助,查找并删除符合条件的行  发帖心情 Post By:2020/6/3 14:10:00 [显示全部帖子]

想通过表A里面的字段删除表B符合条件的行,是在帮助文件的哪个里面,谢谢
[此贴子已经被作者于2020/6/3 14:19:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/3 14:29:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
想通过图1的表A三个字段内容,查找图2中表B符合的行并删除,并在表A中的逻辑列设为True
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/3 17:05:00 [显示全部帖子]

这个在帮助文件哪里?


 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/3 17:23:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看好的,蓝大大,我再努力去搜索

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/5 1:06:00 [显示全部帖子]


For Each dr As DataRow In DataTables("QTXPD").datarows '循环表的每一行
    If dr.IsNull("sfsc") Then
        Dim fdr As DataRow = DataTables("GB").find("spdm='" & dr("vStyle") & "' and GG1DM='" & dr("vColor") & "'  and GG2DM='" & dr("vSize") & "")
        If fdr > -1 Then '如果挂板表找到对应的行
            fdr.Delete '删除该行
            fdr("sfsc") = True
            Return
        End If
    End If
Next
这里该怎么写呢
图片点击可在新窗口打开查看此主题相关图片如下:817.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/6/5 2:42:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/5 1:07:00 [显示全部帖子]

For Each dr As DataRow In DataTables("QTXPD").datarows '循环表的每一行
    If dr.IsNull("sfsc") Then
        Dim fdr As DataRow = DataTables("GB").DeleteFor("spdm='" & dr("vStyle") & "' and GG1DM='" & dr("vColor") & "'  and GG2DM='" & dr("vSize") & "")
            fdr("sfsc") = True
            Return
        End If
Next

这里修改成这种又提示不产生值
图片点击可在新窗口打开查看此主题相关图片如下:30.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/6/5 2:41:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/5 16:57:00 [显示全部帖子]

和题目一样,查找并删除表B相同的行

 回到顶部