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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一键清除

共有6128人关注过本帖树形打印复制链接主题：[求助]一键清除

anxue

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

等级：一尾狐帖子：486 积分：3668 威望：0 精华：0 注册：2013/3/13 8:49:00

[求助]一键清除 发帖心情

Post By：2013/7/4 16:39:00 [只看该作者]

三个不同名称的表，都有条相同学员信息，只保留一条信息，如何一键清除另两个表的相同信息（清除条件按学员姓名和课程）

Bin

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

等级：贵宾帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/7/4 16:49:00 [只看该作者]

dim dt as datatable=datatables("表A")
for i as integer = 0 to dt.datarows

dim dr1 as datarow=datatables("表B").Find("学员姓名='" & dt.datarows(i)("学员姓名") & "' and 课程= '" & dt.datarows(i)("课程") & "'")

dim dr2 as datarow=datatables("表C").Find("学员姓名='" & dt.datarows(i)("学员姓名") & "' and 课程= '" & dt.datarows(i)("课程") & "'")

if dr1 isnot nothing then

dr1.delete

end if

if dr2 isnot nothing then

dr2.delete

end if

简单实用不过效率比较低.

anxue

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

等级：一尾狐帖子：486 积分：3668 威望：0 精华：0 注册：2013/3/13 8:49:00

Post By：2013/7/4 19:37:00 [只看该作者]

此主题相关图片如下：错误.jpg

e-png

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

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2013/7/4 22:17:00 [只看该作者]

for i as integer = 0 to dt.datarows 改为：

for i as integer = 0 to dt.datarows.count -1

主题：[求助]一键清除