Dim i As Integer For i = DataTables("wztz").DataRows.Count-1 To 0 Step -1 Dim dr As DataRow = DataTables("wztz").DataRows(i) Dim dr2 As DataRow = DataTables("bmd").Find("cljbqh_cphm='" & dr("cphm") & "' and cpys='" & dr("cljbqh_cpys") & "'") If dr2 IsNot Nothing Then dr2.Delete End If Next
|