Dim dt As DataTable = DataTables("表A")
Dim count As Integer = dt.DataRows.Countdt.LoadFilter = "1=1"dt.Load
msgbox(dt.datarows.count)msgbox(dt.datarows.count-count)