主题：如何做出可选择地删除多行、多表按钮？

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