主题：sqltable删除

Dim t As Table = Tables("表A")
Dim idxs As String = "-1,"
For i As Integer = t.TopPosition To t.BottomPosition
    idxs &= t.rows(i)("_Identify") & ","
Next
t.DataTable.RemoveFor("_Identify In (" & idxs.trim(",") & ")")
t.DataTable.sqlDeleteFor("[_Identify] In (" & idxs.trim(",") & ")")