Dim str As String ="显示器1:DELL SP2318H|显示器2:DELL SP2317H|显示器3:DELL SP222H|显示器4:DELL SP222H"
Dim dr As DataRow
Dim dt As DataTable = DataTables("表B")
Dim lst As new List(of String)
For Each s1 As String In str.split("|")
Dim sr() As String = s1.split(":")
dr = dt.find("第一列='" & sr(1) & "'")
If dr Is Nothing Then
lst.Add(sr(1))
Else
dr("第二列") = sr(1)
End If
Next
For Each s1 As String In lst
dr = dt.find("第一列 Is not null And 第二列 Is null")
If dr Is Nothing Then
dr = dt.find("第一列 Is null And 第二列 Is null")
End If
If dr Is Nothing Then
dr = dt.AddNew
End If
dr("第二列") = s1
Next
加好友 
发短信
Post By：2021/5/20 8:57:00 [显示全部帖子]
