Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:管理项目1.table |
For Each dr1 As DataRow In DataTables("表B").DataRows
If dr1.IsNull("第一列") = False Then
For Each dr2 As Datarow In DataTables("表A").Select("[第一列] = '" & dr1("第一列") & "'")
dr2.Delete()
Next
End if
Next
For Each dr As DataRow In DataTables("表B").Select("[第一列] > ''")
DataTables("表A").DeleteFor("[第一列] = '" & dr("第一列") & "'")