主题：[求助]如何即时同步删除多个子表中符合条件的行？

DataTables("子表A").DeleteFor("IDD = '" & Tables("父表").Current("IDD") & "'")

DataTables("子表B").DeleteFor("IDD = '" & Tables("父表").Current("IDD") & "'")

DataTables("子表C").DeleteFor("IDD = '" & Tables("父表").Current("IDD") & "'")

删除按钮，按钮代码设置为：

Dim r As Row = Tables("子表A").Current
Dim msg As String = "D#" & "表A" & "#" & r("_Identify")
r.Delete()
Tables("子表A").Save()
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

如何修改按钮代码即时同步删除多个子表中符合条件的行？

删除按钮，按钮代码设置为：

Dim r As Row = Tables("父表").Current
Dim msg As String = "D#" & "父表" & "#" & r("_Identify") & "#" & r("IDD") & "#子表A|子表B|子表C"

r.Delete()
r.Save()

DataTables("子表A").DeleteFor("IDD = '" & r("IDD") & "'")

DataTables("子表A").save

DataTables("子表B").DeleteFor("IDD = '" & r("IDD") & "'")

DataTables("子表B").save

DataTables("子表C").DeleteFor("IDD = '" & r("IDD") & "'")

DataTables("子表C").save

For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

QQClient的ReceivedMessage事件中修改代码：

……

ElseIf msg.StartsWith("D#") Then '表示删除了行

    Dim pts() As String = msg.Split("#")

    If pts.Length >= 3 Then

        DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行

    End If

    If pts.Length = 5 Then

        For Each tn As String In pts(4).split("|")

            DataTables(tn).DeleteFor("IDD = '" & pts(3) & "'")

        Next

    End If

End If