主题：[求助]如何计算一次删除记录的数量，并找出各自对应的_Identify

如何计算一次删除记录的数量，并找出各自对应的_Identify

谢谢老师

你如何删除的？

比如你根据条件删除

Datatables("表A").DeleteFor("第一列 = '123'")

那么你就可以直接计算其数量

Datatables("表A").Compute("count(_Identify)", "第一列 = '123'")

或者是获取值

Datatables("表A").GetValues("_Identify", "第一列 = '123'")

如果是手动删除的话 应该如何计算

如某天采集的数据要删除一部分，一次连续选中，删除

谢谢老师

麻烦你给写几句程序，不好意思，我写的都不对

Dim Topp  = Tables("表B").TopPosition
Dim bott = Tables("表B").BottomPosition
With Tables("表B")
    For i As Integer = bott To Topp  Step -1
        lst.Add(.Rows(i)("_Identify"))
        .Rows(i).Delete()
    Next
End With

For Each i As Integer In lst
    Output.Show(i)
Next

你具体说你想获取_Identify为了做什么吧。

我想用在利用OpenQQ的即时同步程序中，例子中只有删除一行的代码，

现在在全局表事件DataRowDeleting里写了如下代码，单独删除一行已经可以实现，想写一次删除一行或多行通用的代码

Dim r As Row = Tables(e.DataTable.Name).Current

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

Dim r As DataRow = e.DataRow

Dim msg As String = "D#"  & e.DataTable.name  & "#" & r("_Identify")

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

行了，谢谢大红袍老师

另外，修改行和新增行是不是在BeforeSaveDataRow事件里写