专家坐堂-[求助]窗口表删除行的行数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口表删除行的行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159444)

--  作者：天一生水
--  发布时间：2020/12/26 21:03:00
--  [求助]窗口表删除行的行数

老师好！

窗口表删除 [标注]列被勾选的行代码没有问题，但是显示删除的行数为什么不对，总是0？

Dim t As Table = e.Form.Controls("Table1").Table
Dim dt As DataTable = t.DataTable

dt.DeleteFor("标注 = true and 申报进度 = \'待接收\' and 全称 = \'" & _UserZName & "\'")
msgbox("已删除 " & dt.Compute("count([案号])","标注 = 1 and 申报进度 = \'待接收\' and 全称 = \'" & _UserZName & "\'") & " 行")

--  作者：有点蓝
--  发布时间：2020/12/27 20:22:00
--
Dim t As Table = e.Form.Controls("Table1").Table
Dim dt As DataTable = t.DataTable
dim filter as string = "标注 = true and 申报进度 = \'待接收\' and 全称 = \'" & _UserZName & "\'"
dim cnt as integer = dt.Compute("count([案号])",filter )
dt.DeleteFor("标注 = true and 申报进度 = \'待接收\' and 全称 = \'" & _UserZName & "\'")
msgbox("已删除 " & cnt & " 行")