以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- Tables(A)找出所有符合条件的行并且删除他! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108440) |
-- 作者:李小胖 -- 发布时间:2017/10/23 10:20:00 -- Tables(A)找出所有符合条件的行并且删除他! Tables(A)找出所有符合条件的行并且删除他!求代码思路 select 只能用于datatables 对么?
|
-- 作者:有点甜 -- 发布时间:2017/10/23 11:19:00 -- 使用deletefor
Tables(A).DataTable.DeleteFor(Tables(A).Filter)
如果用select
Tables(A).DataTable.Select(Tables(A).Filter) |
-- 作者:李小胖 -- 发布时间:2017/10/23 11:28:00 -- 以下是引用有点甜在2017/10/23 11:19:00的发言:
使用deletefor
Tables(A).DataTable.DeleteFor(Tables(A).Filter)
如果用select
Tables(A).DataTable.Select(Tables(A).Filter) 出现错误 |
-- 作者:有点甜 -- 发布时间:2017/10/23 13:11:00 -- 直接写2楼代码,改表名即可。 |
-- 作者:李小胖 -- 发布时间:2017/10/23 13:13:00 -- 以下是引用有点甜在2017/10/23 13:11:00的发言: 直接写2楼代码,改表名即可。 Filter 是用变量>?
|
-- 作者:有点甜 -- 发布时间:2017/10/23 13:59:00 -- Dim filter As String = "第一列 = \'123\'" Dim t As Table = Tables("表a") filter = iif(t.filter>"", "(" & t.filter & ") and " & filter, filter) t.DataTable.DeleteFor(filter) |
-- 作者:李小胖 -- 发布时间:2017/10/23 18:22:00 -- 以下是引用有点甜在2017/10/23 13:59:00的发言:
Dim filter As String = "第一列 = \'123\'" Dim t As Table = Tables("表a") filter = iif(t.filter>"", "(" & t.filter & ") and " & filter, filter) t.DataTable.DeleteFor(filter) filter = iif(t.filter>"", "(" & t.filter & ") and " & filter, filter) 这句话是用来干什么的?不明白 |
-- 作者:有点甜 -- 发布时间:2017/10/23 18:37:00 -- table是在datatable的数据上筛选出来的。如果table筛选过,那就在t.filter的基础上,再增加你的条件;如果table没筛选过,那直接使用你的条件即可。 |
-- 作者:李小胖 -- 发布时间:2017/10/24 10:08:00 -- 以下是引用有点甜在2017/10/23 18:37:00的发言:
table是在datatable的数据上筛选出来的。如果table筛选过,那就在t.filter的基础上,再增加你的条件;如果table没筛选过,那直接使用你的条件即可。 t.DataTable.DeleteFor(filter) 这句代码使用后 是删除哪个数据 ?datatable ,table ,SQL 数据库 ? |
-- 作者:有点甜 -- 发布时间:2017/10/24 11:57:00 -- 根据条件,删除datatable的数据。也可以理解成删除table的数据。 |