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
简单实用 不过效率比较低.
加好友 
发短信
Post By：2013/7/4 16:49:00 [显示全部帖子]
