以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口的删除按钮Clik事件如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151406)

--  作者:0855yangjing
--  发布时间:2020/6/22 18:37:00
--  窗口的删除按钮Clik事件如何写
我要把筛选出来的数据行删除掉,请问老师,我该怎么更改?

图片点击可在新窗口打开查看此主题相关图片如下:删除事件的代码如何写.jpg
图片点击可在新窗口打开查看

我下面的代码,它删除了所有“回路号”=Value(也就是填入的回路号),不是当前所筛选的行。

Dim Filter   As   String
With e.Form.Controls("Comzjh")
      If .Value   IsNot   Nothing  Then
        Filter =   "主机号 = \'" & .Value &   "\'"
      End   If
End   With
With e.Form.Controls("Comhlh")
      If .Value   IsNot   Nothing   Then
          If Filter > ""   Then
            Filter = Filter &   " And "
          End   If
        Filter = Filter &   "回路号 = \'" & .Value &   "\'"
         DataTables("报警设备定义").DeleteFor("回路号 = \'" & .Value &   "\'")

       End   If
End   With

[此贴子已经被作者于2020/6/22 18:48:47编辑过]

--  作者:有点蓝
--  发布时间:2020/6/22 20:39:00
--  
DataTables("报警设备定义").DeleteFor(Filter )
--  作者:0855yangjing
--  发布时间:2020/6/23 23:52:00
--  
谢谢老师!