Foxtable(狐表)用户栏目专家坐堂 → 删除不需要的产品


  共有1710人关注过本帖树形打印复制链接

主题:删除不需要的产品

帅哥哟,离线,有人找我吗?
listfor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1518 威望:0 精华:0 注册:2017/11/6 17:23:00
  发帖心情 Post By:2024/5/31 10:14:00 [显示全部帖子]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim dvTable2 As New DataView(dt2) ' 假设dt2是第二个DataTable dvTable2.Sort = "YourKeyField" ' 根据关键字段排序 For i As Integer = dt1.Rows.Count - 1 To 0 Step -1 ' 从最后一个行开始遍历 If dvTable2.Find(dt1.Rows(i)("YourKeyField")) = -1 Then dt1.Rows(i).Delete() ' 如果行不在dt2中,则删除它 End If Next dt1.AcceptChanges() ' 提交更改 End Sub

 回到顶部