以文本方式查看主题

-  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)

--  作者:anxue
--  发布时间:2013/7/4 16:39:00
--  [求助]一键清除
三个不同名称的表,都有条相同学员信息,只保留一条信息,如何一键清除另两个表的相同信息(清除条件 按学员姓名和课程)
--  作者:Bin
--  发布时间: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
next

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

--  作者:anxue
--  发布时间:2013/7/4 19:37:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:错误.jpg
图片点击可在新窗口打开查看

--  作者:e-png
--  发布时间:2013/7/4 22:17:00
--  

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

 

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