‘想判断不等于formid的数据就删除，结果数据全部删除了’ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ‘想判断不等于formid的数据就删除，结果数据全部删除了’

共有4641人关注过本帖树形打印复制链接主题：‘想判断不等于formid的数据就删除，结果数据全部删除了’

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

‘想判断不等于formid的数据就删除，结果数据全部删除了’ 发帖心情

Post By：2022/11/1 15:34:00 [只看该作者]

‘想判断不等于formid的数据就删除，结果数据全部删除了’

怎么修正呢？等于formid的值的数据不删除反之就删除

当前代码如下：
Dim cmd As New SQ LCommand
cmd.Conn ectio nName = "web"
cmd.Comma ndText = "sel ect * from {Navigation}"
Dim bt As DataTable = cmd.ExecuteReader()
Dim Products As List(Of String)
Products = bt.GetValues("formid")

For Each Product As String In Products
    For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")

        If file.Contains(Product) Then   ‘想判断不等于formid的数据就删除，结果数据全部删除了’
        Else
            If FileSys.FileExists(File) Then '如果指定的文件存在
                output.show(File)
                FileSys.DeleteFile(File,2,2) '则彻底删除之
            End If
        End If
    Next
Next

[此贴子已经被作者于2022/11/1 15:34:53编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/1 16:09:00 [只看该作者]

调换代码的顺序
For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")

For Each Product As String In Products

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）调换代码的顺序 F... 发帖心情

Post By：2022/11/1 17:46:00 [只看该作者]

Dim cmd As New S QLCommand
cmd.Conn ecti
cmd.Comm andText = "sele ct * from {Navigation}"
Dim bt As DataTable = cm d.ExecuteReader()
Dim Products As List(Of String)
Products = bt.GetValues("formid")
For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")
For Each Product As String In Products
        If file.Contains(Product) Then   '想判断不等于formid的数据就删除,结果数据全部删除了'
        Else
            If FileSys.FileExists(File) Then '如果指定的文件存在
                output.show(File)
                FileSys.DeleteFile(File,2,2) '则彻底删除之
            End If
        End If
    Next
Next

老师调换顺序后还是一样全部干掉了

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/1 19:54:00 [只看该作者]

For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")

Dim k As Boolean

For Each Product As String In Products

If file.Contains(Product) Then '想判断不等于formid的数据就删除,结果数据全部删除了'

k = True

Exit For

End If

If k = False Then

output.show(File)

FileSys.DeleteFile(File, 2, 2) '则彻底删除之

End If

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

主题：‘想判断不等于formid的数据 就删除，结果数据全部删除了’

主题：‘想判断不等于formid的数据就删除，结果数据全部删除了’