专家坐堂-菜单栏的删除按钮问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单栏的删除按钮问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169316)

--  作者：lungby
--  发布时间：2021/6/11 16:42:00
--  菜单栏的删除按钮问题

你好，为什么这个删除的代码不执行呢？

If Tables("委托接收").Current("委托状态") = "待上传" OrElse Tables("委托接收").Current("委托状态") = "退回" Then
If Tables("委托接收").Current("结构代码") = "TCQ"
Dim r As Integer
r = Tables("填充墙锚固力委托").FindRow("[结构代码] = \'" & Tables("委托接收").Current("结构代码") & "\'") \'从第一行开始查找
If r >= 0 Then \'如果找到的话
Tables("填充墙锚固力委托").Position = r \'定位到找到的行.
If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Tables("填充墙锚固力委托").Current.Delete
End If
End If
End If
End If

--  作者：有点蓝
--  发布时间：2021/6/11 16:45:00
--

If Tables("委托接收").Current("委托状态") = "待上传" OrElse Tables("委托接收").Current("委托状态") = "退回" Then
If Tables("委托接收").Current("结构代码") = "TCQ"
DataTables("填充墙锚固力委托").deletefor("[结构代码] = \'" & Tables("委托接收").Current("结构代码") & "\'")
End If
End If

--  作者：lungby
--  发布时间：2021/6/11 17:01:00
--

你好，刚才弄错了，是搜索相同的结构号删除，改成了这样，但是实现不了啊

If Tables("委托接收").Current("委托状态") = "待上传" OrElse Tables("委托接收").Current("委托状态") = "退回" Then
If Tables("委托接收").Current("结构代码") = "TCQ"
DataTables("填充墙锚固力委托").DeleteFor("[结构号] = \'" & Tables("委托接收").Current("结构号") & "\'")
End If
End If

--  作者：有点蓝
--  发布时间：2021/6/11 17:10:00
--
说明if条件都不符合，所以不会删除

--  作者：lungby
--  发布时间：2021/6/11 17:20:00
--
。。。谢谢，有个提示，发的时候删了，后来忘记加了。。。。