以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FindRow的用法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161278)

--  作者:lisangyu
--  发布时间:2021/3/11 21:46:00
--  FindRow的用法
 ElseIf nd.level = 1 Then
                With Tables("知识文档")
                    Dim r As Integer
                    r = .FindRow("[二级目录]  Like \'%" & nd.Text & "%\'" And "[一级目录]  Like \'%" & nd.ParentNode.Text & "%\'") \'从第一行开始查找
                    If r >= 0 Then \'如果找到的话
                        Messagebox.show("目录内包含文件,禁止删除目录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                        
                    Else
                        DataTables("目录表").DeleteFor("一级目录 = \'" & pth(0) & "\' And 二级目录 = \'" & pth(1) & "\'")
                        nd.Delete()
                        tr.Select()
                    End If
                End With

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210311214022.png
图片点击可在新窗口打开查看
蓝总:FindRow 多个条件进行查找  该怎么写?


--  作者:lisangyu
--  发布时间:2021/3/11 21:58:00
--  
解决了,用“”把两个条件放到一起,不然会被当成RowStart ,所以报错