如何做出可选择地删除多行、多表按钮？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何做出可选择地删除多行、多表按钮？

共有1906人关注过本帖树形打印复制链接主题：如何做出可选择地删除多行、多表按钮？

旭日生

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：340 积分：3375 威望：0 精华：0 注册：2011/3/22 22:52:00

如何做出可选择地删除多行、多表按钮？ 发帖心情

Post By：2017/10/13 17:10:00 [只看该作者]

此主题相关图片如下：1401-2000.jpg

请版主帮忙做两个特别有用的按钮代码：

一是可选择删除不含某些字符的按钮：

1、提示输入字符"XXXX",如"ABCD",或"EF".

2 、凡是在A1表中AH列中,A3表中DH列中,不含有上面所输入的字符,两个表中流水号相同的数据,同时删除.

二是可选择输入流水号的按钮：

1、批量输入多个流水号.

2、同时删除A1表 A3表中上一步批量输入的所有流水号.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.foxdb

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/13 17:35:00 [只看该作者]

1、

Dim Val As String = ""
If InputValue(Val, "提示", "请输入字符:") Then
    Dim t1 As Table = Tables("A1")
    Dim t3 As Table = Tables("A3")
    For i As Integer = t1.Rows.count-1 To 0 Step -1
        Dim r As Row = t1.Rows(i)
        If r("ah").contains(val) Then
            Dim fdr As DataRow = t3.DataTable.find("lsh = '" & r("lsh") & "' and dh = '" & r("ah") & "'"
            If fdr IsNot Nothing Then
                r.delete
                fdr.delete
            End If
        End If
    Next
    For i As Integer = t3.Rows.count-1 To 0 Step -1
        Dim r As Row = t3.Rows(i)
        If r("dh").contains(val) Then
            r.delete
        End If
    Next

End If

2、

Dim Val As String = ""
If InputValue(Val, "提示", "请输入字符:") Then
    Dim t1 As Table = Tables("A1")
    Dim t3 As Table = Tables("A3")
    val = val.Replace(",", "','")
    t1.DataTable.DeleteFor("lsh in ('" & val & "')")
    t3.DataTable.DeleteFor("lsh in ('" & val & "')")

End If