Dim dt_s As DataTable = DataTables("卡归属") Dim t_d As Table = Tables("电子银行初") For Each dr As DataRow In dt_s.Select("[所属柜员] = '" & User.Name & "'") If t_d.FindRow("开卡柜员 = '" & dr("所属柜员") & "' and 签约卡号 = '" & dr("卡号") & "'") = -1 Then Dim nr As Row = t_d.AddNew nr("开卡柜员") = dr("所属柜员") nr("签约卡号") = dr("卡号") Exit For End If Next