[讨论] 在表中，正序删除空行方法的探讨 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论] 在表中，正序删除空行方法的探讨

共有2217人关注过本帖树形打印复制链接主题：[讨论] 在表中，正序删除空行方法的探讨

nxhylczh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：335 积分：2674 威望：0 精华：0 注册：2018/11/22 9:19:00

Post By：2020/8/7 22:11:00 [显示全部帖子]

dim tbl as table = args(0) '要删除空行的表

dim Drs as list( of datarow ) = datatable.select (Filter=空行） ‘FIlter 要根据实际情况写

for each dr as datarow in drs

ft = dr("主键")

tbl.datatable.sqldeletefor(ft）

dr.remove

’第二种删除空行

tbl.datatable.deletefor(filter) :tbl.save 或 tbl.datatable.sqldeletefor(filter)

nxhylczh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：335 积分：2674 威望：0 精华：0 注册：2018/11/22 9:19:00

Post By：2020/8/7 22:15:00 [显示全部帖子]

output.show("删除前总行数 i = " & i) dim Count as intter = tbl.rows.count '删除前的值

output.show("删除的空行数 i3 = " & i3) tbl.datatable.select(空行条件）.count

output.show("有数据的行数 i4 = " & i4) tbl.datatable.select(非空行条件）.count

output.show("总列数 = " & t.Cols.Count ) tbl.cols.count

output.show("删除后总行数 = " & t.Rows.Count ) tbl.rows.count

你循环计数就失去了Foxtable的优势了

主题：[讨论] 在表中，正序删除空行方法的探讨