以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]删除“结存数”表里的重复行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52036)
--  作者：oubenming
--  发布时间：2014/6/7 19:27:00
--  [求助]删除“结存数”表里的重复行
请问老师：在这个表里怎么才能删除“结存数”表里的包装及产品名称列里的重复行？谢谢老师指导！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.table

[此贴子已经被作者于2014-6-7 20:19:53编辑过]
--  作者：有点甜
--  发布时间：2014/6/8 9:41:00
--  

 代码

 

Dim i As Integer
For i  = DataTables("结存数").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("结存数").DataRows(i)
    Dim dr2 As DataRow = DataTables("结存数").Find("产品名称=\'" & dr("产品名称") & "\' and 包装及产品名称=\'" & dr("包装及产品名称") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
--  作者：oubenming
--  发布时间：2014/6/8 10:23:00
--  
谢谢甜老师！！！能用了！
[此贴子已经被作者于2014-6-13 23:44:52编辑过]