Foxtable(狐表)用户栏目专家坐堂 → [求助]循环删除表里面的行的时候,总是删不干净。


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

主题:[求助]循环删除表里面的行的时候,总是删不干净。

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106538 积分:541855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/6 9:19:00 [显示全部帖子]

行删除要倒序处理

For i as integer = Tables("财务工具_Table1").Rows - 1 to 0 step -1
    dim r as row = Tables("财务工具_Table1").Rows(i)
    Dim drsw As DataRow = DataTables("商务信息登记表").SQLFind("公司名称='"& r("来源") &"'")
    If drsw IsNot Nothing Then
        If drsw("归属地")<> "总部" Then
         
            r.Delete
        End If
    End If
Next

 回到顶部