- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]一键清除 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37478)
-- 发布时间：2013/7/4 16:39:00
-- [求助]一键清除
三个不同名称的表，都有条相同学员信息，只保留一条信息，如何一键清除另两个表的相同信息（清除条件 按学员姓名和课程）
-- 发布时间：2013/7/4 16:49:00
--
dim dt as datatable=datatables("表A")
for i as integer = 0 to dt.datarows
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
next
简单实用 不过效率比较低.
-- 发布时间：2013/7/4 19:37:00
--
此主题相关图片如下：错误.jpg
-- 发布时间：2013/7/4 22:17:00
--
for i as integer = 0 to dt.datarows 改为：
for i as integer = 0 to dt.datarows.count -1