Dim t1 As Table = e.Form.Controls("Table1").Table
Dim t2 As Table = e.Form.Controls("Table2").Table
If t1.Current IsNot Nothing Then
t2.Filter = ""
t2.RepeatFilter("档案记载1", 2)
For i As Integer = t2.Rows.Count - 1 To 0 step - 1
t2.Rows(i).Delete
Next
t2.Filter = ""
End If
[此贴子已经被作者于2020/9/5 8:52:55编辑过]