Dim Values As New List(Of Integer)
Dim Value As Integer
For i As Integer = 1 To 200 Step 1
Dim r As Row = Tables("表d").AddNew
r("第三列") = i
Next
For Each dr As DataRow In DataTables("表B").DataRows
DataTables("表D").DeleteFor("第三列 =\'" & dr("第三列") & "\'")
Next