我有两张表(sfzxxcj和jmsfzxx),均是外部数据表,我用上述代码将
sfzxxcj的记录合并到
jmsfzxx,要求排除身份证(GB011)重复,在表jmsfzxx加载所有数据时,可以达到不合并已有数据的目的,但如果表jmsfzxx不加载数据时,不能实现目的。我的代码如下:
DataTables("sfzxxcj").Save()
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {sfzxxcj}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
If DataTables("jmsfzxx").Find("GB011 = '" & dr("GB011") & "'") Is Nothing Then
Dim nr As DataRow = DataTables("jmsfzxx").AddNew()
For Each dc As DataCol In dt.DataCols
nr(dc.name) = dr(dc.name)
Next
End If
Next
DataTables("jmsfzxx").Save()