以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙看一下这个怎么弄  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=796)
--  作者：费尔
--  发布时间：2008/10/8 9:34:00
--  [求助]帮忙看一下这个怎么弄
把表B中第一列存在的内容从表A中删除掉，应该怎么写代码？谢谢了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2008-10-8 9:35:01编辑过]
--  作者：狐狸爸爸
--  发布时间：2008/10/8 10:27:00
--  
代码非常简单：

 

For Each dr1 As DataRow In DataTables("表B").DataRows

    If dr1.IsNull("第一列") = False Then

        For Each dr2 As Datarow In DataTables("表A").Select("[第一列] = \'" & dr1("第一列") & "\'")

            dr2.Delete()

        Next

    End if

Next
--  作者：don
--  发布时间：2008/10/17 18:07:00
--  
用DeleteFor更简单：

 

For Each dr As DataRow In DataTables("表B").Select("[第一列] > \'\'")

     DataTables("表A").DeleteFor("[第一列] = \'" & dr("第一列") & "\'")

Next
--  作者：狐狸爸爸
--  发布时间：2008/10/17 18:16:00
--  
呵呵，我都忘记deletefor了