dt = cmd.ExecuteReader() For Each dr As DataRow In dt.DataRows Dim nr As DataRow = DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") If nr Is Nothing Then nr = DataTables("员工").AddNew() End If For Each dc As DataCol In dt.DataCols nr(dc.name) = dr(dc.name) Next Next