以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  清除内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22265)
--  作者：wilson
--  发布时间：2012/8/7 16:40:00
--  清除内容

如果表C的产品编号列有重复，那么重复行的 A列与B列 = Nothing

不知道如何编写代码，求助，非常感谢！
--  作者：狐狸爸爸
--  发布时间：2012/8/7 17:25:00
--  

纸上不谈兵，用简单里的例子说话。
--  作者：wilson
--  发布时间：2012/8/7 20:38:00
--  

 

如果表C的产品编号列有重复，那么重复行的 A列与B列 = Nothing   。 不清除 产品编号列 与 C列 的内容

求助，不知道如何编写代码，最好是菜单按钮代码

 

狐爸麻烦您了，非常感谢！

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：czy
--  发布时间：2012/8/7 20:56:00
--  

重复的留一行数据还是全部清除？

这个是保留一行数据的

 

Dim lst As New List(of String)
For Each dr As DataRow In DataTables("表C").DataRows
    If dr.IsNull("产品编号") = False AndAlso lst.Contains(dr("产品编号")) = False Then
        lst.Add(dr("产品编号"))
Else
        dr("A") = Nothing
        dr("B") = Nothing
    End If
Next
--  作者：czy
--  发布时间：2012/8/7 21:25:00
--  

不保留

 

For Each dr As DataRow In DataTables("表C").DataRows
    If DataTables("表C").Compute("count(产品编号)","产品编号 = \'" & dr("产品编号") & "\'") > 1
        dr("A") = Nothing
        dr("B") = Nothing
    End If
Next
--  作者：wilson
--  发布时间：2012/8/7 23:36:00
--  

非常感谢

重复的留一行
--  作者：wilson
--  发布时间：2012/8/8 0:16:00
--  
问题已解决。非常感谢CZY版主