- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何做出可选择地删除多行、多表按钮？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107985)
-- 发布时间：2017/10/13 17:10:00
-- 如何做出可选择地删除多行、多表按钮？
此主题相关图片如下：1401-2000.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：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
-- 发布时间：2017/10/14 7:38:00
-- 甜版主，好象有点误会我的意思
此主题相关图片如下：image 1.png
此主题相关图片如下：image 2.png
-- 发布时间：2017/10/14 9:33:00
--
2楼的用法就是，请仔细理解并测试。