Dim dr,mr,nr As DataRow For Each dr In DataTables("表B").Select("") mr = DataTables("表C").Find("[第一列] = '"& dr("第一列") &"'") If mr Is Nothing Then 'Output.Show("表C" & dr("第一列") & "未找到") nr = DataTables("表A").AddNew nr("第一列") = dr("第一列") nr("第二列") = "未录入" Else If mr.IsNull("第二列") Then 'Output.Show("表C" & dr("第一列") & "是空值") nr = DataTables("表A").AddNew nr("第一列") = dr("第一列") nr("第二列") = "是空值" End If End If Next
|